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1.0 ABSTRACT 


THIS PROGRAM PERFORMS 


PART 3 OF THE ORIVE DIAGNOSTICS TO 
INSURE THAT THE DISK {5 
I 


PROPERLY PERFORMING 
ALL OPERATOR INTERVE 
SOFTWARE ERROR FORCING. 


N 
ERROR DETECTION LOGIC 


AFTER A puCe oor UL RUN HIS PART, 
PRECEEDED BY THE SUCCESSFUL RUN OF PARTS 2 
IT CAN BE ASSERTED THAT THE RKO DRIVE W otha ne A aa 


ANALYSIS. ARE LEFT OTE TO OTHER PRO sear sn : 


TESTING IS BASED ON A HIERARCHY APPROACH STARTING WITH 
BASIC LOGIC TESTS ND PROCEEDING THRU DYNAMIC TESTING. THE 
TESTS WILL BE KEPT SMALL TO FACILITATE SCOPING LOOPS. 


#HREECAUT IONHHHEE 
HALTING THIS PROGRAM ANYWHERE BUT AT THE END OF A PASS, 


MAY LEAVE THE HEADERS IN THE DISK CARTRIDGE IN AN 
UNDETERMINED STATE. 
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2.0 REQUIREMENTS 
é.1 HARDWARE 
THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE DISK DIAGNOSTIC: 


MEMORY 

Kal i-L OR KW11-P CLOC 
FKOG UNIBUS CONTRSLLER (RK611) 

NOTES: 1. IF NEITHER KWL1-L OR P CLOCK IS USED, ALL TIMING 

TESTS WILL BYPASSED. A MESSAGE AT THE 
BEGINNING’ THE TESTS WILL CONFIRM THIS. 

2. THE PROGRAM CAN WORK OFF EITHER FORMATTED OR 
NON-FORMATTED PACKS. 


_ icine: | 
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2.2 PRELIMINARY TESTING & PROGRAMS 
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THE an DISKLESS conTeobL R DIAGNOSTICS (A 
FOLLOWED BY THE RKO& DRIVE DIAGNOSTICS - PART 


3.0 PROGRAM CONSIDERATIONS 


0 -- D2 6 B= = 


3.1 POP-11 FAMILY COMPATIBILITY 


THIS PROGRAM CAN BE USED BY THE PDP-11/04,05, 10,20, 
34,35,40,45,50, 8 70. 


IT IS COMPATABLE WITH THE LSI-11 INSTRUCTION SET AND CAN TEST 
THE RKO& ONLY IF THE DRIVE CONTROLLER FOR THE LSI-11 IS 
DESIGNED TO BE DIAGNOSTICALLY COMPATABLE WITH THE RXE11. 


3.2  XxOP 

1 
151 THIS PROGRAM CAN BE CHAINED BY XXDP & WILL NOT OVERLAY THE 
= LOADER. 
154 CHAIN MODE OPERATION (MONITOR) 
155 1. THE INPUT DIALOGUE IS BYPASSED. 

2. THE BUSS ADDRESS & CONTROLLER INTERRUPT VECTOR IS 

3 See O RELL NOT BE TES 

4: ALL OTHER DRIVES IN The *baIve PRESENT’ CONDITION WILL ee 


BE TESTED 
NOTE: THE DRIVE PRESENT CONDITION IS: 


- HEADS MANUALLY LOADED 
B. CORRECT PORT SELECTED 
C. WRITE LOCK DISABLED 
D. DRIVE READY INDICATOR ON 
DUMP MODE OPERATION (MANUAL ) 


1. INPUT DIALOGUE IF STARTED FROM 220. 
2. ORIVE O CAN BE TESTED, BUT THE OPERATOR IS FIRST GIVEN 
A MESSAGE TO REPLACE THE PACK IN ORO WITH A SCRATCH 

PACK & TYPE <CR> WHEN DONE. 


ee ee ee ee ee ree ee 
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3.3 ACT/APT 


THIS PROGRAM IS ACT COMPATIBLE. IT IS APT 
COMPATABILE TO THE EXTENT THAT APT HOOKS WILL BE IN THE 
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PROGRAM & WILL WORK THRU THE ‘UPTON INTERFACE’. 


FOR OTHER INTERFACES APT MAY ONLY LOAD & START THE PROGRAM. 
I.E. LOAD & DUMP MODE. 


AUTOMATIC MODE (MONITOR) 


3: The Biss, ADORE Rese E EaNFROLLER INTERRUPT VECTOR IS 


3. BEL PORIVES IN THE DRIVE PRESENT’ CONDITION WILL BE 
TESTED. 


NOTE: THE DRIVE PRESENT CONDITION IS: 





rere MANUALLY LOADED 
CORRECT PORT SELECTED 
e: WRITE LOCK DISABLED 
D. DRIVE READY INDICATOR ON 
NOTE: SEVERAL APT CONSIDERATIONS ARE STILL TO BE DEFINED. 


DUMP MODE (MANUAL): INPUT DIALOGUE IF STARTED FROM 220. 


3.4 DUAL ACCESS 
THIS PROGRAM WILL NOT TEST OR SUPPORT DUAL-ACCESS. A DRIVE 


Piet iepasiicict st teat taba é 


210 QUIPED WITH ACCESS MUST BE SWITCHED TO THE PORT UNDER 
sis Fest TO PRE ENTION WITH THE OTHER PORT. 
e213 DUAL ACCESS TESTS WILL BE INCORPORATED IN A SEPARATE PROGRAM 
214 AT A LATER DATE. 
se | 
4 3.5 MEMORY MANAGEMENT 
219 F ITY CHECK ON TS AVAIL ON THE SYSTEM, 
at The "PROGRAM WILL RUN HTH MEMORY CHECK ENABLED. 
eee 
es: 3.6 PARITY CHECK ENABLED 
MORY PARITY CHECK ON IS AVAILABLE ON THE SYSTEM, 
a fe HASLER BRP BIA IES ERE 
ees 
AA 3.7 BAD SECTOR 
231 THE PROGRAM WILL COMPARE DATA ERRORS WITH THE BAD SECTOR 
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E32 . INFORMATION CONTAINED ON CYLINDER 410, HEAD 2. PRINTOUTS 
4 : OF DATA ERRORS DUE TO BAD SECTORS/TRACKS WILL BE MASKED OUT. 
236 3.8 EXECUTION TIME 


238 TOTAL TIME: APPROX S MINUTES TO DO ALL THE TESTS 
(BASED ON THE POP 11/50) 


~ ae 
e 


3.9 FAULT ISOLATION 
FAULT ISOLATION WILL NOT BE PERFORMED FOR THE FIRST STAGE 
RELEASE BUT WILL BE INCLUDED FOR THE SECOND STAGE RELEASE. 
3.10 ERROR CORRECTION AND FAILURE RATE ANALYSIS 
THIS PROGRAM WILL NOT DO ERROR CORRECTION OF FAILURE RATE 
ANALYSIS. 


3.11 DEFAULT UNIBUS ADDRESSES & VECTORS 


THE FOLLOWING IS A LIST OF ALL DEFAULT ADDRESSES & VECTORS 
OF ALL HARDWARE TO BE USED & THEIR MEMORY ADDRESSES 
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| WHERE THEY CAN BE CHANGED. 

| 

! 
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LOCATION DEFAULT CONTENTS 
RKO6 BUS ADDRESS 1260 177440 
CONTROLLER INTERRUPT VECTOR 1330 210 
CONTROLLER PRIORITY 1332 240 
P-CLOCK STATUS REG 1334 1725 
CLOCK SET BUFFER 1336 172542 
P-CLOCK READ BUFF 1340 172544 
L-CLOCK STATUS REG 1342 177546 
L-CLOCK {NTERSUET VECTOR 1344 100 
OCK_INTERRUPT VECTOR 1346 104 

TTY KB STATUS REG 1144 177560 
TTY ie 1146 177562 
TTY PRINTER STATUS REG 1150 177564 
TTY PRINTER BUFFER 1152 177566 


4.0 OPERATING PROCEDURE 8 CONTROL FUNCTIONS 


4.1 PROGRAM LOADING 
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THE PROGRAM CAN BE LOADED FROM PAPER TAPE USING STANDARD 
PROCEDURE FOR ABSOLUTE LOADER TAPES; OR FROM ANY MEDIA 
SUPPORTED BY XXDP. 


4.1.1 LOAD THE STARTING ADDRESS (SEE SEC 4.2). 
4.1.2 SET SWITCH REGISTERS AS DESIRED (SEE SEC 4.3). 


4.1.3 SET DRIVES TO BE TESTED IN THE °LOAD’ CONDITION & WITH THE 
APPROPRIATE PORT SELECTED & WRITE LOCK DISABLED. ORIVES 
NOT TO BE TESTED MUST HAVE BOTH PORTS DESELECTED. 


NOTE: THE DRIVE WILL NOT RESPOND TO THE ’START SPINDLE’ 
i THE RUN/STOP SWITCH IS IN THE ’STOP’ 


4.1.4 PRESS ’START’ 
THE PROGRAM WILL IDENTIFY ITSELF AND WI 
OE a a THE OPERATOR TO DETERMI 


THE PROGRAM BEGINS TESTING ONLY THOSE DRIVES SPECIFIED BY 
THE INPUT DIALOGUE. af Fc SPECIFIED DRIVE CANNOT BE FOUND BY 


4.2 STARTING LOCATIONS 
LOCATION 200 - STARTING ADDRESS TO DEFAULT THE BUSS 
ADDRESS & THE CONTROLLER INTERRUPT VECTOR 
& TEST ALL DRIVES IN THE *DRIVE PRESENT’ 
CONDITION. 
NOTE: THE DRIVE PRESENT CONDITION IS: 


A. HEADS MANUALLY LOADED 
B. CORRECT PORT SELECTED 


en eee 
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4.3 


4.3.1 


4.3.2 


4.3.3 


4.3.4 





C. WRITE LOCK DISABLED 
D. DRIVE READY INDICATOR ON 


LOCATION 220 - STARTING at TO INPUT TESTING PARAMETERS 
VIA_THE INPUT DIALOGUE. BUSS ADDRESS & 

CONT. INTERRUPT VECTOR INPUTTED ONLY ON 
1ST PASS. 

IMPORTANT: FOR VARIATIONS OF THE ABOVE, SEE et ACT/APT 

CONSIDERATIONS IN SECTIONS 3.2 8 3.3. 

SWITCH REGISTER 

THE SWITCHES ARE USED TO PROVIDE CONTROL FUNCTIONS. 

SWITCH FUNCTION 


HS Ua Cie recy 

1B BIBL ESTEE como 

ll NHIBIT ITERATION 

10 =BELL ON ERROR 

9 LOOP ON ERROR 

8 LOOP ON TEST IN SW<07:00> 
SW<15> 


PROGRAM HALTS ON ENCOUNTERING AN ERROR, AFTER TYPING OUT 
THE ERROR MESSAGE AND PERTINENT INF oRNAT Of IF eg 
PRESSING “CONTINUE” RESTORES NORMAL OPERATION OF THE 
SwW< 14> 


PROGRAM LOO? on ON 4; T of THAT I 2 Pea EXECUTED WHEN 
i: Fatt IS Pu HIS SWITCH IS NORMALLY USED ALONG 


SW< 13> 


THIS SWITCH INHIBITS ALL ERROR MESSAGES. NORMALLY USED WHEN 
LOOPING ON TEST (SW14) OR LOOPING ON ERRCR (SW9). 





SW< 12> 


LC ME CE COE EL: OL A LGC LE TLE CE TT 
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THIS SWITCH BYPASSES A GIVEN DRIVE AFTER 20 ERRORS HAVE 
BEEN DETECTED. 
4.3.5  SW«ll 


EACH TEST WILL BE EXECUTED ONLY ONCE. NORMALLY AFTER THE 


(USUALLY, § IN Sone Cases) SEytING THis SMITCH TNHIGITS 
ITERATIONS, 3 That QUICK PASSES CAN BE 


4.3.6 SW«10> 
RINGS A BELL ON ERROR. USEFUL WHEN ERROR TYPECUT IS INHIBITED. 


4.3.7  SW<O0% 


THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP FOR 
ERRORS. IF THE PROGRAM DETECTS AN ERROR, IT WILL LOOP BACK 
TO THE BEGINNING OF TEST. 


4.3.8 SW<O08> 
THIS SWITCH IS USED TO SELECT A PARTICULAR TEST (AS PER 
410 SW<00-7>) FOR EXECUTION AND SUBSEQUENT LOOPING. THUS IF 
1 TEST 15 IS TO BE SELECTED THE SWITCH SETTING 
412 1 IT SHOULD BE NOTED THAT BEFORE SELECTING TEST 15, 
ag PREVIOUS TESTS (1-14) WILL 
Sis 
iis 4.4 SOFTWARE’ SWITCH REGISTER 
418 By Ass a IS BEING an mn B Ta ea SS PROCESSOR (I.E. AN 11/704 OR 11734) 
au PROGRAM WILL DETERMINE T ere aul ett Reels TER Is 
Wet Her ae REGISTER Bitte! AT LOCATION 196° (8) THE 
422 * SOFTWARE’ SARE CONTROLLED THROUGH 
423 ROUTINE uNTCHE 1S CALLED BY ING A *CONTROL G’. 
Bey THe PROGRAM Ht WILL RECOGNIZE THE "CONTROL G’ AT ANY TIME EXCEPT WHEN 
ges THE PROGRAM IS AT A HIGHER PRIORITY PROCESSING AN RKOG INTERRUPT. 
426 THE *SOFTWARE’ SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER 
m4 IN RESPONSE TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 
429 SWR = NNNNNN NEW = 
430 


431 EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 


Po ee eee ee 


eS. eS 
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4.5 


4.5.1 


4.5.2 





IMAGE MUST BE ENTERED. LEADING eg ARE NOT REQUIRED. 

*RUBOUT’ AND "CONTROL U’ FUNCTIONS MAY BE USED TO CORRECT TYPING 
ERRORS DURING SWITCH ENTRY. 

ON PROCESSORS ged HARDWARE SWITCH pestsvense THE ’ SOFTWARE’ 
opts REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES 
IN THE *UP’ POSITION, ALL SWITCH REGISTER REFERENCES WILL BE 

TO THE ’SOFTWARE’ REGISTER AND THE PROCEDURES DESCRIBED ABOVE 
MUST BE FOLLOWED. 

INPUT DIALOGUE 

THE DIALOGUE WILL BE DONE INTERACTIVELY. THE PROGRAM WILL 
REQUEST A Pere pen BY CONSOLE TYPEOUT. THE Poel ER MAY 

THEN BE ENTE BED AS SPECIFIED BELOW OR ALLOWED TO DEFAULT 

BY A IAGE RETURN. UNRECOGNIZED OR ILLEGAL eee ane WILL 

BE ECHOED BACK FOLLOWED BY "?". THE PROPER RESPONSE MA 

THEN BE ENTERED. 

IMPORTANT: FOR VARIATIONS OF THE ABOVE, SEE 1e ACT/APT 

CONSIDERATIONS IN SECTIONS 3.2 8 3.4 
DRIVE SELECTION 
THE REQUEST WILL BE: 
DRIVES TO BE TESTED: 


THE DEFAULT RESPONSE IS CARRIAGE RETURN TO TEST ALL DRIVES 
IN THE DRIVE PRESENT’ CONDITION. 


THE OPERATOR CAN ALSO TYPE IN THE SPECIFIC DRIVE NUMBERS 

TO BE BE TESTED, SEPARATED BY COMMAS 8 TERMINATED BY A CARRIAGE 
E.G. DRIVES TO BE TESTED: 1,2,4,6 

IMPORTANT: FOR VARIATIONS OF THE ABOVE, SEE XXDP, ACT/APT 

CONSIDERATIONS IN SECTIONS 3.2 & 3.3. 

BUS ADDRESS 

THE REQUEST WILL BE: 
TYPE IN BUSS ADDRESS IF NOT 177440 

THE DEFAULT IS A CARRIAGE RETURN < 
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CONTROLLER INTERRUPT VECTOR 
THE REQUEST WILL BE: 

TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 
THE DEFAULT IS A CARRIAGE RETURN. 


EXAMPLE OF PROGRAM DIALOGUE 


THE EXAMPLE SHOWN IS FOR A PROGRAM STARTED AT ADDRESS 220. 
ALL OPERATOR RESPONSES ARE UNDERLINED. 


UNIBUS a DRIVE DIAGNOSTIC 
MAINDEC-11-DZR6J-B-PB 
DRIVES TO BE TESTED: 1,3<CR> 


TYPE IN BUSS ADDRESS IF NOT 177440 <CR> 


TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 <CR> 


oad. TEST DRIVES: 
3 
DRIVE 1 






(THE REST IS IDENTICAL TO THE EXAMPLE SHOWN IN 4.6 BELOW) 


PROGRAM EXAMPLE 


THE FOLLOWING IS AN EXAMPLE OF A PROGRAM STARTED AT TH 
DE AUC ADDRESS (Boos WITH 2 DRIVES ON tHe LENE. . 


UNTELS OKDS DRIVE DIAGNOSTIC 
MAINDEC-11-DZR&J-B-PB 

atu TEST DRIVES: 

1 
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533 DRIVE 0 


DRIVE SERIAL NO. AAA 
CARTRIDGE SERIAL NO. 888 


DRIVE 1 


DRIVE SERIAL NO. CCC 
CARTRIDGE SERIAL NO. DDD 


END PASS #1 


S45 
S46 a. TEST DRIVES: 
1 


| 
| 


aS DRIVE 0 

S52 DRIVE SERIAL NO. AAA 

zee CARTRIDGE SERIAL NO. BBB 

S55 DRIVE 1 

556 

557 DRIVE SERIAL NO. CCC 

34 CARTRIDGE SERIAL NO. DDD 

S60 END PASS #2 

561 

ops (ETC) 

5&4 THE ABOVE ASSUMES NO ERRORS DETECTED. 

ae THE NUMBER OF PASSES IS DETERMINED BY ACT/APT/XXDP 
£67 IMPORTANT: FOR VARIATIONS OF THE ABOVE, SEE XXDP, ACT/APT 
ore CONSIDERATIONS IN SECTIONS 3.2 & 3.3. 
570 

a 5.0 DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION 

fe 5.1 GENERAL 

te] OPERATOR INTERVENTION TESTS 

577 THESE TESTS CHECK OUT ALL THE DRIVE INTERLOCKS, FRONT PANEL 
278 SWITCHES AND LIGHTS. 

580 THE OPERATOR IS INSTRUCTED TO PERFORM A TEST 


AND TYPE A SPACE WHEN FINISHED. 
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5.2 





OPERATOR INTERVENTION irate CAN BE INDIVIDUALLY 
BYPASSED BY TYPING A CONTROL-C _<tC>. ONLY ATT 
BEGINNING OF EACH TEST, AS INSTRUCTED BY THE TYPEOUT. 


IF a ta DETERMINES IT WAS LOADED UNDER 
AC OPERATOR INTERVENTION TESTS WILL BE 
BYPASSED UNLESS THE *LOAD & DUMP MODE’ IS BEING 


THEY WILL BE BYPASSED IN *MONITOR MODE’ AS OPERATOR 
ne MAY NOT BE FEASIBLE IN OVER-NITE 


TEST DESCRIPTIONS 


LEEALARAE LA RAL LAE KKLLELF KALLE RERELELEREELELREL RE LERELLERELLELERE 


BASIC CONTROLLER TESTS, SIZING & SETUP 
TTT ttt tt titi ittitt Titi titiitiitLiLLLLLELLLLeLLLLeL LLL 


TEST 1 REFERENCE ALL CONTROLLER REGISTERS 


THIS TEST VERIFIES THAT ALL THE CONTROLLER REGISTERS 
CAN oS ACCESSED. wi 


TIMEOUT TR AN ERROR MESSAGE. ANY 
ER ROR IN THIS TEST WILL RESULT IN ABORTING ALL OTHER 
TESTS AND JUMPING TO ’END OF PASS’ 


TEST 2 SIZE THE BUSS 


THIS TEST IS ENTERED ONLY IF *DRIVE SELECTION’ IS DEFAULTED 
EITHER BY RUNNING IN THE AUTO MODE OR A 200 START IN THE 


Loe MODE. 

EVERY DRIVE FROM O THRU 7 IS ADDRESSED. 

CONTROLLER ERROR (CERR) IS EXAMINED AND IF NOT SET, THE 
DRIVE WILL BE TESTED. IF SET, THE PROGRAM WILL BYPASS 
TESTING THAT DRIVE ONLY IF THE ERROR WAS A RESULT OF 


MDS, UFE OR NED BEING SET; OR BOTH NED & DRA RESET IN- 
DICATING THE OTHER PORT IS ACCESSED. 


TEST 3 VERIFY OPERATOR DRIVE SELECTIONS 


THIS TEST IS ENTERED ONLY IF DRIVE SELECTION IS NOT 
DEFAULTED. EVERY DRIVE FROM 0 TO 7 IS ADDRESSED & 
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TEST 4 


TEST S 


TEST 6 


TEST 7 
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CONTROLLER ERROR ( ERR) EXAMINED. F fr, 
PROGRAM W WILL ASSUME THE ORIVE I 
TO SEE THAT THE DRIVE WAS INPUTTED EGR Testi. ae'5 NOT 
BE AN ERROR. IF CERR WAS SET, THAT DRIVE WILL BE BYPASSED 
T SULT OF HOS OR ve cet OR BOTH 

NED & DRA F a (RONG Aen IF CE RESULT OF 

ONLY CHECKED AGAINT THE INPUTTED InFOR” TO 
VERIFY If fas Ro ECIFIED. 


ET. T 
atu. HEN CHECK 
IT WILL 


UNLOAD ALL DRIVES TO BE TESTED 
THIS TEST UNLOADS ALL THE DRIVES TO BE TESTED 
WAITS OBB N & VERIFIES IT CAME BACK FROM THE CORRECT DRIVE 


WITHIN xX. 1 C. 
ATTN, DRIVE READY & DRIVE STATUS CHANGES ARE VERIFIED TO BE CORRECT 


FIND NEXT DRIVE TO BE TESTED 

THIS test FINDS THE NEXT DRIVE PRESENT & PUTS THAT 
THR T THE FOLLOWING TESTS, THE ORIVE TESTED IS 
THE DRIVE WHOSE ADDRESS IS IN ‘DRVAD’. 

PRINT DRIVE SERIAL NUMBER 


THIS TEST READS & PRINTS ne pRIVE 


SERIAL # FROM MSG A, WORD 11 
IN DECIMAL & IS PERFORMED ON THE IST 


ST PASS ONLY 


SET VV WITH PACK COMMAND 
IF VV IS RESET, THE PACK COMMAND IS USED TO SET IT. 


peath Ettinaton a eee 


KLKLLFFERALALELEAALA LAA LAL LALA TALL ALLA LAE LAAARERLAAL HALAL ELS ALAS 


TEST 10 


INTERLOCKS TESTS 


THIS er VERIFIES THAT THE DOOR 8 CARTRIDGE STATUS BITS 
ARE OPERA Tine a T THE REMOVAL 
OF THE CARTRIDGE CLEARS VOLUME VALID. 

IT FURTHUR VERIFIES ALL REMAINING STATUS BITS OF 
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O3-NOV=75 
-o2 MESSAGE A & 6, WORDS 0 & 
653 THIS TEST ALSO CHECKS That’ THE SPINDLE CANNGT BE STARTED 
684 NT 1S OPEN OR THE CARTRIDGE IS REMOVED. 
585 IT ALSO VERIFIES THAT LOSS OF VOLUME VALID RESETS SACK WHICH 
ES ASSERTS NON EXISTENT DRIVE IN RKCS2 
588 
£89 TEST 11 UNIT SELECT PLUG TEST 
631 THIS TEST VERIFIES THAT WHEN THE UNIT SELECT PLUG IS PULLED 
692 OUT, THE QUAL LOGIC RESETS ATTN & VOLUME VALID. THAT 
693 THE ' DRIVE bE-SELECTS & NON EXISTENT DRIVE ASSERTS. 
£94 FURTHUR, THE OPERATOR IS ASKED TO INSERT ANY 
695 UNIT Me ect PLUGS. THE PROGRAM WILL RESPOND BY TYPING 
= THE PLUG CODE NUMBER AS SOON AS IT IS INSERTED. 
697 THIS PORTION OF THE TEST IS TERMINATED AT ANY TIME BY A CONTROL-C 
695 
700 TEST 12 PORT SELECTION TESTS 
702 THE OPERATOR IS ASKED TO SWITCH TO THE WRONG PORT 
on5 & THEN DESELECT BOTH PORTS. 
703 IN BOTH CASES, NON EXISTENT DRIVE SHOULD ASSERT IN RKCS2 
= 
708 TEST 13 FRONT PANEL RUN/STOP SWITCH TEST 
a tee THIS TEST ALLOWS THE HEADS TO LOAD. THE OPERATOR IS 
711 ASKED TO VISUALLY VERIFY THE SEQUENCE OF HEADS LOADING & 
71 UNLOADING BOTH MECHANICALLY 8 BY THE LIGHTS ON THE FRONT PANEL 
714 
715 TEST 14 AC LOW DETECTION PART 1 
217 A PRELIMINARY AC LOW TEST IS PERFORMED HERE WHILE HEADS ARE UNLOADED. 
719 BATTERY RETRACT WILL BE TESTED LATER. | 
TS FOR AC LOW TO ASSERT IN 


RON THIS BINT, IS APPROX 4 MS AVAILABLE BEFORE OC LOW ASSERTS 
& NTERFACE * SHUTS: DOWN. 
ph INDICATION OF DC LOW WILL BE NON-EXISTENT DRIVE ASSERTING IN RKCS2. 
AFTER POWER UP, VOLUME VALID IS CHECKED TO BE CLEARED. 
TEST 15 CHECK NXF LOGIC 


Tuts TEST VERIFIES NON-EXECUTABLE FUNCTION (NXF) IS DETECTED 
AS A RESULT OF DOING A SEEK WITH VOLUME VALID RESET. 


Saas 
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TEST 16 READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL & 


THIS TEST VERIFIES THAT CYL 410, TRACK é CAN BE READ. 
THIS AREA CONTAINS BAD SECTOR TNEOR We 


TING THAT 
FUTURE FORMAT AND READ-WRITE TESTS WILL BE BYPASSED. 
THIS IS DONE SO AS NOT TO DESTROY BSE INFOR OR AN ALIGNMENT PACK BY WRIT 


THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY. 


TEST 17 WRITE LOCK TEST 


hig’ TEST VERT IES THAT DATA WRIT SECTOR CANNOT BE 
THE WRITE LOCK SWITCH HAS BEEN ENABLED. 
IT "ALSO CHECKS THAT WRITE PROTECT FECT ONLY AT 
SECTOR BOUNDRIES WHEN DOING CONTINUOUS WRITING ON CYL 0, HEAD 0 


3 


TEST 20 AC LOW DETECTION PART 2 
THIS TEST VERIFIES THAT WHEN AC POWER IS LOST, THAT WRITING CEASES 
IES & THAT THE BATTERY RETRACT IS ONAL . 


FUNCT 
HM t X 4 MS BETWEEN AC LOW ASSERTING aNa NED ASSERTING 
WHEN THE INTERFACE SHUTS DOWN. 


TEST 21 END OF PROGRAM 
THIS THIS Te Or BT A TEST BUT A LINKAGE TO PERFORM ALL THE 
OR THE NEXT DRIVE PRESENT. 
Tre REXT. T ' IS ENTERED ONLY AFTER ALL DRIVES PRESENT 


BEEN TES 
DO NOT LOOP ON THIS ’TEST’. 


TEST 22 MULTIPLE DRIVE DETECTION TEST 


THIS TEST IS PERFORMED ONLY ONCE AT THE END OF PASS 1 
AND IS BYPASSED IF ONLY ONE DRIVE IS PRESENT. 


THE MULTIPLE DRIVE DETECTION LOGIC IS TESTED BY THE FOLLOWING METHOD: 
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HEADS MUST BE 


D (SECTOR PULSES REQ’D) 
8: ig: OPE J TRUC 


TED TO INSERT THE SAME UNIT SELECT 
AT A TIME) ON ANY 2 ORIVES 


C. THE OPERATOR THEN DEPRESSES THE SPACE BAR TO CONTINUE THE TES 
OR A CONTROL-C TO EXIT THE TEST 


THE PROGRAM VERIFIES THAT MULTIPLE DRIVE SELECT & DRIVE UNSAFE 
BOTH SET & THAT THE DRIVE UNLOADS 


THE OPERATOR IS ASKED TO VERIFY THAT HEADS UNLOAD FROM BOTH DRIVES 


THE PROGRAM DOES NOT REQUIRE FORMATTED PACKS AS FORMATTING 
IS PERFORMED IN ANY CASE. 


ANY TEST THAT MODIFIES STANDARD FORMATTING IS FOLLOWED BY A 
pehney UP’ TEST TO PUT THOSE CYLINDERS BACK TO STANDARD 


/6.0 ERROR REPORTING 


SERRE URE SSE POO IESIEER 


6.1 ERROR INTERPRETATION 


— 0 0 b= b= bo hs 2 be 
WO YOU £§UITU-c> 


| 
| 
| 
| 
| 
| 


gine f ISe TO. Rone That 
| VERY beeen EIN PINPOINT NING THE FALL 
| OF WHAT IS BEING De 
BEGINNING OF EVERY TES 

MESSAGES ARE IN OCTAL. 


NOTE 
NO ERROR LOGGING OR OPERATION HISTORY IS PROVIDED. 


SSO URRTReS 





_—_—— 
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6.2 ERROR PRINTOUT EXAMPLE 


MESSAGE AD ERROR 
AT END OF HEAD LOADING 


BELA? fie 
RKAASRKER RKDS —-RKCSI_——RKCS2 
140141 100000 o00000 140101 o4d200 000101 
SHOULD BE 
150341 
MESSAGE B1 ERROR 
AFTER LINIT DETECT 
16 
RKMR3 RKER  RKDS —-RKCSI_««RKCS2 
045720 030001 O00000 o40000 oYde00 o0did0 
SHOULD BE 
045720 120001 
IN THE FIRST EXAMPLE, RKMR2 (MESSAGE AD) DID NOT READ BACK 
CORRECTLY. THE CORRECT "SHOULD BE” CONTENTS IS UNDER 


IN THE 2ND EXAMPLE, RKMR3 (MESSAGE B1) DID NOT READ BACK CORRECTLY 
WITH THE CORRECT "SHOULD BE’ CONTENTS UNDER ’RKMR3’. 


ae ee ce ae a ee te ee ees a eee renee eee 


5 
Mob TUR Eee Sh RAMI ds 
























V=76 15: 
864 % 


-NLIST CND,MC,MD 
LIST ME 
“ENRBL ABS, AMA 
;DEFINE SYSMAC MACROS 
167400 $SWR= 167400 ;DEFINE SWITCHES 15, q: 13, 11,10,9,8 
000001 STN= 1 ;SET FIRST TEST NO. 


- TITLE ot RK& DRIVE DIAGNOSTIC PART 3 
*#COPYRIGHT c¢ Buby? 

i 01GITAL EQUIPMENT CORP. 

i® MAYNARD, MASS. 01754 


2 
5 SPROGHA BY GARY PAPAZIAN 


i STHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
:*PACKAGE (MAINDEC-11-DZQAC-C2), SEPT 14, 1976. 


r BS ORI PIOGNOSTIC, C _— 3 MACY11 27(1006) O3-NOV-76 15:34 PAGE 19 
+ 

- SBTTL OPERATIONAL SWITCH SETTINGS 

i 

| 

| 


QR EDR SSE SRR SOME OUR CoM Bled total sainectem ae 


is SWITCH USE 

2 15 HALT ON 

tx 14 LOOP ON 

* 13 INHIBIT ERROR T 

i 12 T DRIVE AFTER” Si TBaRORS 
: # 11 Beet ae TERATIONS 

3% 10 

3# g OP ON ERR 

+ 8 + OOP ON TEST IN SWR<7:0> 

-SBTTL SUMMARY OF STARTING LOCATIONS 

+ 

* 200 DEFAULT PARAMETERS 

+e 220 INPUT PARAMETERS 

i 240 ODT11 


i 
| 
{ 


i 
| 
‘ 
| 
t 
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.SBTTL BASIC DEFINITIONS 
{INITIAL ADDRESS OF THE STACK POINTER *#* 1100 *# 
“EQUIV EMT, ERROR s;BASIC DEFINITION OF ERROR CALL 
.EQUIV IOT,SCOPE BASIC DEFINITION OF SCOPE CALL 
s #MISCELLANEOUS DEFINITIONS 
T= ll 33 FOR HORIZONTAL TAB 
LF= 12 *:CODE FOR LINE FEED 
CR= 15 :CODE FOR CARRIAGE RETURN 
CRLF= 200 CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 ::PROCESSOR STATUS WORD 
.EQUIV PS.PSW 
STKLMT= 177774 ;;STACK LIMIT REGISTER 
PIRG= 177772 He INTERRUPT REQUEST REGISTER 
DSWR= 177570 > :HARDWARE SWITCH REGISTER 
DDISP= 177570 *:HARDWARE DISPLAY REGISTER 
-#GENERAL PURPOSE REGISTER DEFINITIONS 
Ro= %0 3;GENERAL REGISTER 
m= 2 gies elite 
R3= “3 GENERAL REGISTER 
s “4 GENERAL REGISTER 
RS= 45 ; ; GENERAL Re GtSTER 
Rb= % ?:GENERAL REGISTER 
R7= “7 ;;GENERAL REGISTER 
SP= “6 ?:STACK POINTER 
PC= “47 ; ;PROGRAM 
-¥PRIORITY LEVEL DEFINITI 
Pro= sO ;;PRIORITY LEVEL 0 
PRiz 40 j SPRIORITY LEVEL 1 
PRe= 100 * PRIORITY LEVEL 2 
PR3= 140 >:PRIORITY LEVEL 3 
PR¥= 200 PRIORITY LEVEL 4 
PRS= 240 * PRIORITY LEVEL S 
PRo= «300 ::PRIORITY LEVEL 6 
PR7= 340 PRIORITY LEVEL 7 
-#” SWITCH 
Gwi5= 100000 
a 3 
Suits 4000 
SWi0s 2000 
Su09= 1900 
SWO7= i 
2 
Swo3= 10 
SWO2e= 4Y 





2 
B 


Oe 


RKE ORI 
CMB 


sapere 


a 


BERR REECE Se aR SON os Con eos sa tala sal 


0 0-2 +h = Bs 8-2 Bo he hs 2 Fb ba he Bah 


OooooOoOoOoOoO0oO 
eee 
WONT U CWO 


We _bracwostic PART 3 
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000002 
000091 


Jt 

ata 

Vitet=tat= 
O£££O 


ee 
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BASIC OFF INTE 


;*DATA a INITIONS (BITOO TO BIT1S) 


mwo- 
aT) 


444444444 4 4-4 


ra 
Bs 


DWOWVDODOWOOWOO—Mwc6c-— 


4 4 4 4 4 4 0 


eee 


sa 


Sm tiesiectesleslecleslesleslesleslesles] 
O44 4 4 4 0 
oO 
4 
u 


ssassaesss 


sebetaedeciedeakedbectectaal 
oO-nasue oOo 


s¥BASIC “CPU TRAP VECTOR ADDRESSES 
ERRVEC= 4 ;;TIME OUT AND OTHER ERRORS 
**RESERVED AND ILLEGAL INSTRUCTIONS 


: NT TRAP (BPT) 
OTVEC= He INPUT? TPUT TRAP (IOT) **SCOPEx* 
EMTVEC= 30 EMULATOR TRAP (EMT) #*ERROR#* 
T 2 "TRAP" TRAP 


4 OR 
PIRQVEC=240 ;;PROGRAM INTERRUPT REQUEST VECTOR 
-SBTTL RKO& CONTROLLER REGISTER DEFINITION 





Sees 


Padé dob AH Sal aE RAR Spt eotard el gehts eset yi 


t= 


Be 8 a b= bb 2 2 bh bo 0 0 bh bh hs = ee he 
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ba DONO 
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RKO6 CONTROLLER REGISTER DEFINITION 





;CONTROL AND STATUS REGISTER 1 


us ooo s REGISTER 


cai TRACK SECTOR REGISTER 


OFFSET REGISTER 


LINE 6) 


SUMMARY AND 
INDER REGISTER 


reibaee mae f 


ECC POSITION INFORMATI 
ECC PATTERN INFORMATI oN 


; SELECT DRIVE (GET STATUS) 
ACKNOWLEDGE 


‘DRIVE CLEAR 
; UNLOAD 


:START SPINDLE 
sRECALIBRATE 


; SEEK 
sREAD_ DATA 
WRITE DATA 


-SBTTL CONTROL AND STATUS REGISTER 1 BITS (RKCS1:0) 
DRIVE COMMANDS 


HEADER 
SURITE HEADER AND DATA 


sWRITE CHECK 


URE ay 
De Rot Eeeon 
sCONTROLLER CLEAR 
-SBTTL CONTROL AND STATUS REGISTER 2 BITS (RKCSe: 10) 


iMPeELE FOR Se Bek 


FORMAT ( 


(MESSA 
SSA 


4 
TYPE (O=RKO6) 


=2e SECTOR 


Y ERROR DETECTED BY KONTROLL 


ECTION CODE 
ASE DRIVE IN BITS 0-2 


=e0 SECTOR) 


us AopRESS, INR CONTROLLER AND ALL DRIVES 
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1879 


1078 


SESEREER AR OE IRR TORE SS 


Os bn bs be pe be Bn an bn Pe Be Bn ae Bt Be be Pn be ne a fs ne nn ese ne ne eee ne ee ee eae me ne ne ns ne ne 8 Pe Hae De Ps Ps Pe se Hs Po Pe bas Pe Sms fe Hw 
BRR ROR Raw Non cwn-OSSNeNEOUeS 


Gas & 2 Bb no a ss 0s hs hn 0 hh et hp ha bo 


w 
— 
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CONTROL AND satus 0 2h ; ct (RKCSe: 10) 








T NPUT READY 
BtTS BUT REROY 
g sUNIT FIELD DRI Rees LECT 
+ PROGRARRING E it 
; NON-EXISTENT MEMORY 
NON-EXIST TENT DRIVE 
UNIBUS PARITY ERROR 
tURITE CHECK ERROR 
‘DATA LATE ERROR 


ERROR REGISTER BIT DEFINITION (RKER: 14) 
BITO ; ILLEGAL FUNCTION CODE 
I LEIr 


;SEEK_INCOMP 
:NON-EXECUTABLE FUNCTION 
; DRIVE DETECTED SERCON PARITY ERROR 


;FORMA 
;DRIVE TYPE ERROR 
ECC HARD 
BAD SECTOR ERROR 
;HEADER VRC ERROR 
CYLINDER ADDRESS OVERFLOW ERROR 
sINVALID DISK ADDRESS ERROR: HEAD/CYL 
: WRITE Bit ERROR 
DRIVE TIMING ERROR 
; OPERATION (SEARCH) INCOMPLETE 


{DATA CHECK 
STATUS REGISTER BIT DEFINITION (RKDS: 12) 


BITO ;DRIVE AVAILABLE (CONTROLLER IS SET IF 
yale Beer’ RESET) 


WMEFWM-O 


AAA HH tt at 
WONCTU.£CUWT 


bps be te hs be 
Mfwre-O 


ao 
oot 
+ 
rm 


VE READY 

VE TYPE (O=RKO6) 

TE LOCK 

ITIONING IN PROGRESS 
VE STATUS CHANGE 
STATUS VALID 


MAINTENANCE REGISTER 1 BIT DEFINITION (RKMR1:22) 
7 pe 


i AGNOSTIC "Seer 
be a Ba cer PULSE 


reINT RE SOE READ DATA . 


10 ;MAINTENANCE ENCODED WRITE DATA 


WDOMOWMMMDODDD 
0-4 0-4 4 04 4 4 8-0 4 
Nou eo) 
MG 
ewe — wewe we we wee wee we ee oe 
<= 
Ss D 
5 Ld 


1 
B 
B 
B 
B 
B 
B 
B 





SAGE MASK 
ORCE EVEN PARITY ON SERCON MESSAGE LINES 
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DZR6J8.CMB O3-NOV-76 15:31 MAINTENANCE REGISTER 1 BIT DEFINITION (RKMRI:22) 
1132 004000 PCAs —s«BIT11 sPRECOMPENSATION ADVANCE 
tis 85505 Eerie BITtS IES UORD Ye BEING Reso OR WRITTEN 
{132 Ba0000 Ee tHaTs BrTia ER ITE GATE 
1136 100000 ROGATE= BITIS READ GATE 
1138 .SBTTL DEFINITION OF DRIVE STATUS BYTE O00 MESSAGE A ‘RKMRE: 34) 
1140 po0040 D.DRA= BITS :DRIVE AVAILABLE 
1141 000100 D.We BITS :YOLUME VALID 
1142 o00200 D.DROY= BIT7 *DRIVE READY 
1143 900400 “‘DDT= B8IT8 *DRIVE TYPE (O=RKO6) 
1144 001000 0.FORM= BITS ; DRIVE FORMAT 
1145 go2009 [OFF= BITIO OF ON 
1146 4 “WRL= BITI1 sHRITE LOCK 
4 Ben009 Bees Toe ma NG_IN PROGRESS 
1149 B-baes E 714 sir & Th. CHANGE 
1151 .SBTTL DEIINITION OF DRIVE ome BYTE O1 MESSAGE A (RKMR2:34) 
1153 oo0020 D.TFOK= BIY sTRACK FOLLOWING OK 
1154 o00040 D HDHM= BITS ; HEADS HOME 
1155 000100 C.cRHM= BITS *BRUSHES HOME 
1156 000200 D.DOOR= BIT7 DOOR INTERLOCKED 
1157 000400 D.CART= BITS *CARTRAGE INTERLOCK 
1158 001000 D.SPOK= BITS “SPEED OK 
1159 oo2oo0 D:FWD= BITIO * FORWARD 
1160 004000 D:REVs BITI1 * REVERSE 
1161 010000 0:LOAD= BITI2 *HEADS LOADING 
1162 020000 D:RTZ= BIT13 *RETURN TO ZERO 
1163 040000 D.UNLD= BIT14 *HEADS ING 
116s .SBTTL DEFINITION OF DRIVE STATUS BYTE OO MESSAGE B (RKMR3:36) 
1167 D.IDAE= BITS sINVALID DISK ADDRESS ERROR: HEAD/CYL 
1168 000100 D.ACLO= BIT6 
1169 000200 D.FLT= BIT7 :OR IVE FAULT 
| 4170 00 D:NXF= BITB *NON-EXECUTABLE FUNCTION CODE 
1171 001000 D.PAR= BIT9 :DRIVE DETECTED SERCON PARITY ERROR 
1172 D.SKI= BITIO ;SE EK INCOMPLETE 
1173 004000 D.WLE= BITII ; 
1174 010000 D.SPLS= BITI2 *SPEED LOSS 
1175 020000 D.DROT= BIT13 DRIVE OFF TRACK 
| 117% 040000 D.UNS= BITI4 WW UNSAFE 
| 1178 -SBTTL DEFINITION OF DRIVE cone BYTE 01 MESSAGE B (RKMR3: 36) 
| 1180 gooce9 D.SECT= = BIT SECTOR ERR OR 
| 181 D: WCUR “WRITE CURRENT AND NO WRITE GATE 
1182 000100 D:WGAT= BITE *WRITE GATE AND NO TRANSISTIONS 
1183 00 D.HDFL= B1T7 *HEAD FAULT 
| 4184 00 D.MHD= BIT8 *MULTIPLE HEAD SELECT 
1185 001000 D.XERR= BITS * INDEX ERROR 
1186 00 D.TIB= BITIO :TRIBIT ERROR 
| 1187 004000 D.PLO= BIT11 PLO ERROR 
} 
| 
} 
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B 
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SESRRPSO LESS 


8 


furvrurungeco-s-se-= b-2 b- + b= b—- § = pe bs p= 
Oo 
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SeiR: 


DRI 
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VE 
O3-NOV-76 15:31 


900007 
017760 


DEFINITION OF DRIVE ST “STAT TUS wee HESEAGE B (RKMR3: 36) 


D.NMOV= BiTle ;SEEK_AND NO MOTION 
D.LIMD= BIT13 sLIMIT pe TEST ON SEEK 


D.SUNS= BIT14 ;SERVO UNSAFE 
.SBTTL COMMON MASKS AND OTHER BITS: MESSAGE A (RKMRe: 34) 
M.DRV= 7 jot “ ALL BYTES 


R DIFF, BYTE 10 


- CDIF= 17760 :CYLIND 
‘ORFSET. VALUE. BY 


T= 177 TE 10 

M. NM SERS hfe 58 ?DRIVE SERIAL’ #, BYTE 11 

.SBTTL COMMON MASKS AND OTHER BITS: MESSAGE B (RKMR3:36) 

ID= 3 ID, ALL BYTES 

M.CADD= 17760 OY LENDER RODRESS, BYTE 10 
GN= BITI4 ‘ALIGN SIGN, BYTE 10 

M.SECT= 760 SECTOR SGUATS autre ll 

M.HEAD= 7000 HEAD DECODE, BYTE 11 

M.PAR= BITIS ‘PARITY, MESS aye ALL BYTES 





oo 


LT EE LE IY 
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003046 
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ocoooe 


000174 
go0000 
at 


000137 


000240 
000137 





15:31 


010566 
010556 


oSsssS9 


.=1000 
: -SBTTL APT PARAMETER BLOCK 
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COMMON MASKS AND OTHER BITS: MESSAGE B (RKMR3: 36) 


.SBTTL TRAP CATCHER 


=0 
7 ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ”.+2,HALT” 
:¥SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
;*xLOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS 


-=174 
DISPREG: .WORD © + OFTHARE DISPLAY REGISTER 
SWREG: _.WORD O ;SOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 
JMP QsSSTART ;;JUMP t0 STARTING ADDRESS OF PROGRAM 


IMP PARSRT ; INPUT ALL PARAMETERS & START TESTING 


.=240 
JMP 0.0DT sENTER ODT11 


-SBTTL ACT11 HOOKS 


: CORE OPA tS pp OL 1 pease temas gana tepearermenp oa een enieu iae 
> HOCKS S REQUIRED BY ACT1 


sv ;SAVE PC 

SengAo ;;1)SET LOC.4& TO ADDRESS OF SENDAD IN .SEOP 
“WORD. 120000 ;:2)SET Loc.s2 TO 120000 

 =5SVPC RESTORE PC 


5 EEREREE EER H HEEL EE EEA EEE EE EEE REESE LEER ERE EAE EEE EEE 
SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
“one “ener go oan” 


-$X=. 5 SAVE CURRENT LOGAT ION 
=e4 sper POWER FAIL OINT TO START OF PROGRAM 
200 FOR APT START 


:;POINT TO APT INDIRECT ADDRESS PNTR. 
SFPTHOR ype TO APT HEADE 1 


jevvevsiaitensedeatenvensenneesteareateaespennerpeeaneaeeateny 


tae TUP ARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
STNTERFACE Spec. 

SAPTHD: 

SHIBTS: .WORD O ::TWO HIGH BI 1 OF 18 BIT MAILBOX ADDR. 

SMBADR: .WORD S$MAIL j SADDRESS OF APT MAILBOX (BITS 0-15) 


STSTM: WORD 300. : RUN TIM OF LONGEST 

SPASTM: .WORD 600. *RUN TIME IN SECS. OF IST PASS ON 1 UNIT (QUICK VERIFY) 

SUNITM: .WORD 600. “ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
WORD G00 -shimod ; sLENGTH NAILBOX-ETABLE (WORDS) 








5 
Bi 


RS a a at 


6-2 b -< ® © (0 & 2 9-2 p< §-= 9-« 9 -< 2 H-0 


Solo solnd 


2 0 02 0 0 po 0 
Noon evo Faves 


0 6 = 6 = b+ b+ b 2 b= = 6 b= B+ & = 0 F 2 b= §< b< 9 6 = = & 2 B— 2 & 9 9 & 2 0-0 § 2 PD ~@ O-2 O-2 Os HH - 0 
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=) 


Higa 
S88888888888888S8SES888S8S88R888E8S8SE8S8S8R8883 


ae 
Se: 


o~ 
Lat) 


cy: 


ee ee ee 


PNSELREVERENSE EGSRAEVS 


sueeebecee 


O— B22 b= = B-2 = Bs & -2 b—2 & 2 2 = B= H 0 Fe H-2 H ~2 OF B 2 9-2 O20 ho 2 2 Pe pe 


Res 


SuRaeERES 
8 


0 0-2 0 2 bn 2 0 Oo ot hh ohne 
WUIWLI 
OT ST ST or 
f£wte-O 
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COMMON TAGS 


~SBTTL COMMON TAGS 


as PEPSSLELSRRIREBELELEFLOEPEAEE HEL ELEESE HES ELEDE PEELE EEE RES EP EGSCELESES 
:#THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
*®USED IN THE PROGRAM. 


-21100 


SCNTAG: 7 ¥ ::START OF COMMON TAGS 
STSTNM: .BYTE 0 s;CONTAINS THE TEST NUMBER 
SERFLG: .BYTE 0 >:CONTAINS ERROR FLAG 
SICNT: .WORD O *;CONTAINS SUBTEST ITERATION COUNT 
SLPADR: .WORD 0 *:CONTAINS SCOPE LOO ADDRESS 
SLPERR: .WORD 0 : CONTAINS SCOPE TURN FOR ERRORS 
SERTTL: .WORD 0 ?:CONTAINS TOTAL ERRORS C 
SITEMS: .BYTE 0 ::CONTRINS ITEM CONTROL 
SERMAX: .BYTE 1 >:CONTAINS MAX. ERRORS PER TEST 
SERRPC: = WORD : *:CONTAINS PC OF LAST ERROR INSTRUCTION 
SGDADR: : WORD *:CONTAINS ADDRESS OF "GOOD' DATA 
SeorOr: toe 8 FONTAINE "opop para CONTA 
SBODAT: “TORD 0 + CONTAINS Baer DATA 
-HORD : : :RESERVED--NOT TO BE USED 
SAUTOB: BYTE 0 ssAUTOMATIC MODE INDICATOR 
SINTAG: . : He INDICATOR 
SWR: “HORD DSWR s;ADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD ODISP AD ISPLAY REGISTER 
$TKS: 177560 2: TTY STA 
a TITY PRINTER STATUS REG. ADDRESS 
SPB 177566 TTY PRI BUFFER REG. ADDRESS 
SNULL: .BYTE 0 ¢ CONTAINS NULL CHARACTER FOR FILLS 
SEILLS: “BYTE 2 *:CONTAINS # OF FILLER CHARACTERS REQUIRED 
SFILLC: .BYTE {2 a FILL CHARS. AFTER A “LINE FEED" 
STPELG: “BYTE 0 $ CERMINAL AVAILABLE" FLAG (BIT<O7>=O=YES) 
SIMPL: “HORD 6 :;USER BEF INeD 
Srna: “WORD 0 ii UeER DEFINED 
TIME 6 >:MAX. NUMBER OF ITERATIONS 


: 5 ERE ERROR 
SBELL: ‘ABT <307) (377><377> ;;CODE BELL 
; (18) : CARRIAGE RETURN 


"SBTTL APT MAILBOX-ETABLE . 
s% REESEELEFSLSE SLABS LSS EKKSSRSLKRSERSEREKEKAS SS REL REEL ERSRASSRRSRE 


$MAIL: 
TY: .WORD AMSGTY 
: »WORD 


SF AL: © 
STESTN: .WORD ATESTN 








C03 
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7( 1006) 
X-ETABLE 


lle 
MAIL 


MACY 
APT 


UNISUS RKE DRIVE DIAGNOSTIC PRAT 3 
OZREJB.CNB = = O3-NOV-76 15:31 





=03, 11740=04, 11/745=05 


11720 


/05=0e 
=07,0=10 
CLOCK 


’ 





a 


aunt 


OO 4 o-4 8 4 O-4 0-4 o-4 09 0-4 4 


88888888888 


BIT S=FLOATING POINT PROCESSOR 


IT 
SWI 
T 
S-11 
1} 
11 
BIT 10=REAL 


o-unMsrin 


ce ee 
se Se Sees Peseaseegsseossecs 
; ae wor era RR SSSSESSSRESSEEES 
“Ey ae eS ee 
Mase 


joes = — 


OYTES. THIS WORD AND LOW OF “TYPE” ABOVE 
Ys 
#2 
R 


a 


: RIES — 
8 Entossncussnescsssssescssseusss 


Lees 


Dine 


MECREAAST UCL S MSC Lt Seen 


wtoete oe oe Kod Re Roe hoo | ee ee oe ee ee ee le ee ee er ee ee ee ee ee ee oe ee ee | 
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001330 SETEND: 
177440 ABASE= 177440 sDEFAULT BUSS ADDRESS 
ie l RKVEC: sDEF T CONTROLLER INTERRUPT VECTOR 
i RKPRI: sPRIORITY 
1 1725 PKS: 72 3P-CLOCK STA 
091336 172542 PKSB: 172542 *P-CLOCK SET BUFFER 
O0134¢ 172544 PKRB: e544 :P-CLOCK READ BUFFER 
001342 177546 LKS: 177546 *L=CLOCK STATUS REG. 
901344 000100 LOVEC: 100 sL-CLOCK INTERRUPT VECTOR 
001345 900104 PCVEC: 104 :P=CLOCK INTERRUPT VECTOR. 
900114 MEMVEC= 114 sMEMORY PARITY VECTOR 
172100 MEMBAS= 172100 :MEMORY PARITY OPTION 
001350 000000 TRAPPC: 0 sPC FOR MEMORY PARITY ERROR TRAP 
001352 900000 : O 1 FOR 220 START, NO DEFAULT 
001354 900000 FTITLE: 0 ‘FLAG FOR PRINTING OUT IST PROGRAM TITLE 
001356 900000 DRVPTR: 0 s CONTAINS THE POINTER TO THE DRIVE FLAG 
;(DRIVO-DRIV7) OF THE DRIVE TO BE CHECKED NEXT. 
po0c49) 40 oes 
900002 CONTC= : CONTROL -C 
901360 000000 FRCYL: >FROM CYLINDER 
001 000000 TOCYL: O :TO CYLINDER 
001364 900000 ccYL: 0 : CURRENT CYL, USED INN TEST 
001366 PCYL: 0 PREV CYL NN SQUARE TEST 
001370 30000 IF: 0 CALC uy “BIFF USED IN N TEST 
ee pean & it Sloe Mr HETIED Feon Rows 
001376 Bpp0o8 CALADD: 5 :CYL ADDR’USED IN FHDTAB ROUTINE 
091400 900074 H2: 60 360 FOR 60 CPS 
°50 FOR SO CPS 
001402 900000 COUNT: © sLOARED 0 SO OR 60 T9 COUNT TO 1 SEC 
BAY OTHER N NUMBER TO COUNT OFF FRACTIONAL SECOND 
001404 90000 eee SECOND COUN 
091 000000 IMUP: 0 iELAG 0 “HhOTGATE TIME IS UP 
001410 0900000 SECNT: p SECTOR 
001412 900000 PSEC: PREV TOUS Se SECTOR 
001414 900000 ESEC: 0 “EXPECTED SECTOR 
001416 000000 SECTOR: 0 “SECTOR COUNT, RIGHT JUSTIFIED FROM RKMR3 
1420 Tl: 1 s TIMEOUT CONSTANTS 
Bite eee T10: io 
1458 SOb7eEd Teo): 800 
001430 000144 Ti00: 100 
001432 O11610 T5000: 65000 
001434 141520 750000: §0000 


i a8 a a f RS ETE ER 








UNIBUS RK& DRIVE DIAGNOSTIC PPRT 3 © MACYLI_27(1006) O3-NOV-76 15:34 PAGE 30 
SORE YB. eMB  UB-NOVeDe 1es31 OEY RATE BOR CE FABLE 
439 | ess. 
1431 319. 
14 es 383, 
1434 0014S2 090000 TIMI: 0 sUSED IN TIMING TESTS 
Re BS Ses ie § 
1432 001460 000000 TIM4: 0 
14 1462 000000 LPCNT: 9 LOOP CTR USED IN CALCLK 
1440 001464 o00co0 LPTIM: 0 ‘LOOP TIME IN USEC 
1442 001466 000000 SUM: 0 OQ ORDER FOR TINING TESTS 
5 sum: 8 i ORDER FOR TIMING TEeTe 
000000 Q I ORDER FOR TIMING TESTS 
00000 Wl: =O act UAL HEADER/DATA WORD 
ococoo we: 0 ‘EXPECTED DATA WORD 
| 1450 oceoce OFFERR: 0 sSET WHEN WRITE CHECK ERROR ON OFFSET 
452 
1453 001504 oo0000 HEAD: 0 sHEAD NUMBER 
| 3454 001506 90000 HDI: 0 i SHIFTED HEAD® FOR FORMATTER ROUTINE 
| 1455 901510 oo0000 FORMAT: 0 T TYPE . 
1456 01512 gonsa FMT1: 0 SHIFTED FORMAT FOR FORMATTER ROUTINE 
1457 001514 WOCNT: 0 :WORD COUNT 
| 10 tea res eH E AL OTS 
| qael Golese T7777 Datal: 197977 SALL 1°S 
| 1462 001524 133467 DPATI: 133467 
| 14g3 o01Ses 070627 DPAT2: 70627 
1465 001530 o00000 WORD: 0 sHEADER/DATA WORD 
| «B _ ene neteomlmate siti eee: 
| 
. § RR: . : CANNOT INFO WHEN SET 
ets: p00C OFEERR: B CIN DETECT ERROR P Pua 
1470 001540 00000 MOSERR: 0 Mi 
es ee BB 8: Bet SRN TS te 
1474 002152 00102 SRTTAB: .BLKW 66. ABOVE | H RHTAg SORTED STE STARTING FORM 
| 4476 002356 ooo BSE20: .BLKW 256. : RIOR BSE INFO 
/ 44 BSED2: “BLKW 256. 20 SECTOR BSE INFO. 
14 004356 000400 ROTAB: .BLKW 256. ‘FILLED AFTER READ DATA CMD 
000633 : did. INVALID CYLINDER ADDR 
416. 


te 
es 
oe 





< ee ee a - + ee 


1483 005364 000700 
i OO0S366 000740 


SERRE RRR ERNES 


BOABYE.CNS OS-NOVo7e eran 


Be Be AA Past eee Po Owe 15:34 PAGE 31 


448. 
480. 


ATTN:  .BYTE 1,2,4,10,20,40, 100,200 ;ATN O-7 RESP. 


EVEN 
-LIST MO 


SUSE LOOP xX TO OMIT SUBCLR 


tasMSG AO ERROR#, B=MSG BO ERROR# 
; =MSG Al ERROR#, D=MSG B1 ERROR# 


fee (ERROR CONDITION DESCRIPTION» 
F2D.DSC AFTER ATTN OR O AFTER DRIVE CLEAR OR ANY IMPLIED SEEKS 


NOTE: F CAN BE ANY BIT COMBINATION DESIRED 
SA=CYL OTF cana. ERROR#® 

;B=CYL_ADDR E 

; C=(ERROR CONDITION DESCRIPTION> 


PUSE CALIB. -«X_—=«TO ‘OMIT CKWD12 8 CKWDS 


EAD/<CFNT! WRHEAD> 
: USE LRHDR <A>,X TO OMIT CKWDle 


A=RDHEAD/<CFMT! RDHEAD> 
USE RDHDR <A>,X TO OMIT CKWD12 


; A=TOCYL/FRCYL , B=HEAD#s, C = 0 FOR 22 SECTOR, 1 FOR 20 SECTOR 


;QUICK SEEK. ENTER WITH CYL# IN RKDC 





DZREJB.C 
S40 
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MACY11 ect 100s) porerre 15:34 PAGE 32 
APT MAILBOX-ETABL 


i AeURDATA/<CENT!URDATA> 
;USE WOATA <A>,X TO OMIT CKWDle 


em ee 
ts RDAT «A>,X TO OMIT CKWD1e 


$ A=URTCHK//<CFNT!URTCHK) 
*C=16 FOR 


: MS 
pCa L ts he 136/130 FOR ERROR MSG USED IN *SBOUND’ ROUTINE 
;USE WRCHK <A>,C,X TO OMIT CKWD12 


"MACRO TO TEST THAT WRITE CHECK OCCURRED AT SECTOR BOUNDRY 
A&B=134,135 FOR WRITE PROTECT SW TEST 

*A&B=136,137 FOR AC LOW TEST PART 2 
:C=JUMP ADDR TO REPEAT TEST 


FQUICK START SPINDLE 


: 
ROUTINE TO ISSUE PACK COMMAND 


QUICK UNLOAD 


-NLIST MD 


OLLOWING ARE HOLDING REGISTERS FOR THE RK611 REGISTERS 


REY ie 


LOADED AFTER RDY IS REC’D FROM WRDY ROUTINE. 
we, 0 ;HOLD RKCS1 
HCSe: QO * HOLD RKCS2 
HWC: 0 *HOLD RKWC 
HBA: 0 sETC. 
HDA: 0 
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fe ILBOX- oP TaBLE : 


HDS: 
HER: 
Sage 
HMRI: 
HMR2: 
HMR3: 


HPOS: 
HPAT: 


QNo00000000 


THE FOLLOWING ARE “SHOULD BE” REGISTERS FOR THE ABOVE REGISTERS 
;SHOULD BE’ FOR HMRe 
ETC 


; TEMPORARY STORAGE. 


SBMR3: 


_" 
3 
tT 
Oooo00 oo 


pec: ~ 2ET THEN IN DOP HATH OSE 

pores 8 ELAS - eT WHEN TN ACTLG HABE. OF OPERATION 
PPTP:| FLAG - LOADED BY PAPER TAPE 
DRIVS: 0 CONTAINS THE HUMBER OF DRIVES. PRESENT 

STHE FLAGS BELOW ARE SET TO 1 TO INDICATE THAT A PARTICULAR DRIVE 

:1S PRESENT AND IS TO BE TESTED. 

ORIVO: 0 sFLAG SET TO 1 WHEN DRIVE 0 PRESENT 

DRIVI: 0 tFOR DRIVE 1 

DRIV2: 0 SFOR DRIVE 2 

DRIVE: 0 tFOR DRIVE 3 

DRIVE: 0 TFOR DRIVE 4 

DRIVS: 0 FFOR DRIVE 5 

DRIVE: 0 TFOR DRIVE 6 

DRIV?: 0 tFOR DRIVE 7 

LCLKF: 0 sL-CLOCK FLAG PRESENT FLAG 

BCLKF: 0 ;B-CLOCK FLAG. PRESENT FLAG 

DOTIN: 0 IST IF EITHER CLOCK PRESENT FOR TINING TESTS. 
SIZFLG: 0 tSET IF DEFAULT 00 SIZING IN TEST 1 
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-SBTTL ERROR POINTER TABLE 


pRTHIS Mo CONTAINS THE INFORMATION ra EACH ERROR THAT CAN OCCUR. 
*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
OTEL: IF SITEMB IS 0 THE ONLY PERTINENT DATA I 
SENOTES: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


r EM 3 POINTS TO THE ERROR MESSAGE 
DH 33POINTS TO THE DATA HEADER 


ENe ;O0R # IN RKCS2 CANNOT BE READ BACK CORRECTLY IN RKMR2 
;DETECTED MDS 
EMG ;DETECTED UFE 


EN? ;DETECTED DRA & NED RESET (WRONG PORT SELECTED?) 


EME ;DR PRESENT BUT NOT SPECIFIED BY CPERATOR 


;0R NOT PRESENT BUT SPECIFIED BY OPERATOR 





;ABORT TEST, COULD NOT REFERENCE CONTROLLER REGISTER 





SERSRRZERSS 


$= 6 b-2 b+ P+ 6 & = b> Bb pe ps Pope 


Pao bas Gane fue bas Pan bane fo 
NNINNNN SIS 
0 ee 
—OWO NOuUI£ Wr 


cine 


aadesanceaaaoian 


gasaaraa= 


aaa 


tay ae DRIVE, arwste C_ PART 3 


GBD Gy Sey Be Ee ae 


005670 O52 
OS4460 


2 
8 
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ee PLS ae 


;ERR 22 


oo oom o 
= S29 mE 
en oe a 
ow oO ov oOo 
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sERR el 


BS S58 


DH 
OT 
OF 10 
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;DRA & NED BOTH SET 


;NO RDY 
;AFTER WRITE DATA CMD 


;CERR SET 


;NO_RDY 
;AFTER READ DATA CMD 


;CERR SET 


;NO_RDY 
;AFTER WRITE CHECK CMD 


;WRITE CHECK ERROR SET 
;AFTER WRITE CHECK CMD 


;CONTR NOT RDY 
;AFTER UNLD CMD 


;NO ATTN 


;DATA CHECK ERROR 
SAFTER READ DATA CMD 


3 
ud 


ITE CHECK CMD 


“* 
a LT TSS et ss 


UNIBUS RK& DRIVE DIAGNOSTIC PART 3 MACY11 27(1006) O3-NOV-76 15:34 PAGE 36 
DORE YB. ChE ub -Roveoe 1E¢3) ERROR P TNtER tape 
1756 sERR 23 
1757 005736 044273 EM18 :MSG BO ERROR 
1738 005749 05170e DHE? “AFTER WRITE DATA CMD 
eg Boers BF 
1761 ERROR 24 
1762 OOS746 O443S6 EM21 sCERR SET 
1763 005750 051470 bHel ‘AFTER SCLR 
ioee Boesea a 
1766 ;ERR 
1767 005756 044335 EM20 :MSG B1 ERROR . 
1768 005760 051702 OHo7 
1769 005762 05 DTI 
1770 005764 Osso44 OFS 
1771 | ERR 26 
1772 005766 044273 EM18 
1773 005770 OS51652 DH26 AFTER READ DATA CMD 
1774 005772 OS4460 OT1 
1775 005774 DFS 
1776 
1777 ERROR 27 
1778 005776 ova? EM2e4 ;VOL_VALID NOT SET 
1779 o06000 051412 DH19 ‘AFTER PACK CMD 
1780 OOS002 OS4460 DT1 
_ 1781 008004 o55064 DF 10 
185 044335 ERR 30 20 MSG B1 ERROR 
| 1784 rest 051652 DHeb AFTER READ DATA CMD. 
1785 OO6D0i2 OS4460 OT! 
178% 006014 055044 
1 ;ERR 31 ; 
1788 006016 044273 EM18 , :MSG_BO ERROR 
1769 p06020 Ose111 DH32 AFTER WRITE CHECK CMD 
1 006022 OT1 
| 1731 O060e4 055044 OFS 
1792 sERR 32 
| 17983 006026 o44335 EM20 ;MSG B1 ERROR 
| 1794 006030 0S211 DH32 
| 1795 906032 S460 OT1 “ 
| 1796 006034 OFS 
| 1797 ERR 33 
ie Bae is Bus SPIE SEE Bo 
tice . 
| 100 054504 OTe , 
| 1801 006044 055100 an om 
| 185 o0604% 044124 EM13 NO ATTN 
| 1804 Oob0s9 051602 DHe4 
| 4605 054504 OTe 
| 1806 006054 055100 OF 11 
| Jeo OOE056 o44252 . EM17 sMSG AO ERROR 
| 809 053356 DHS3 DURING OFFSET COMMAND 
| 1810 O06062 O54460 OT1 
| 1811 006064 Beeaey OF8 
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tated son matidatatatdat taluk eee d eeaeaat a stain ate ait iatat aati 
Bee ce sees gees Base sees sass sees sass aes 38 
‘MOT 


weies 


044314 
053356 
os4460 
ossde4 


944314 
051602 
OS4460 


DIAGNOSTIC 
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MACY11 27( 
ERROR POI 


;ERR 36 


;ERR 51 
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ABL 


;MSG AL ERROR 


;MSG Al ERROR 
;AFTER OFFSET CMD 


;MSG B1 ERROR 


sWRONG ATTN 
:AFTER UNLOAD CMD 


;DRDY NOT CLEARED 
;DSC NOT SET 


;DOOR NOT CLEARED 
;AFTER DRIVE UNLOADED & DOOR OPENED 


;MSG AO ERROR 
;MSG BO ERROR 


sCYL DIFF/OFFSET IN RKMR2 NOT CLEARED 
SAFTER RECAL CMD 


sCYL_ADDR IN RKMR3 NOT CLEARED 
‘AFTER RECAL COMD 








DUREIB.CNS  US-NOVe7e israt «ERROR POINTER TABLE > Te PAE SO Wiese.” AS aebeneleh Elen 
;WRONG CYL# IN HEADER WORD 


006216 047762 EM93 


1868 
1869 006220 051627 DH25 TAFTER SEEK CMD 
1870 O0s222 O54662 OTS 
1971 O0see4 OBSIE4 OF20 
1 JERR 52 
1873 0622 OuNese EMI7 ;MSG_AO ERROR 
i874 006230 951702 5H27 SOFTER WRITE DATA CMD 
1875 06232 OS4460 OT1 
1876 006234 OFa 
1877 SERR 53 
1878 006236 O44314 EM19 ;MSG Al ERROR 
1875 006240 051702 BH2? 
1880 0242 O54460 OT! 
1881 O06244 O&S024 _ OFa 
1882 | SERR 54 
1883 06245 o442S2 EMI7 :MSG AD ERROR 
1884 006250 OS1Es2 DH26 [AFTER READ DATA CMD 
1885 06252 OS44E0 DTI 
1886 006254 055024 OFa 
1887 sERROR 55 
1888 OO0&2S56 O44124 EM13 :NO_ATTN 
1889 006260 051341 BHI? FAFTER RECAL CMD 
1890 006262 O54460 OT! 
1891 O0e269 OSS064 OF10 
i892 SERR Sb 
1893 006266 044314 EMI9 ;MSG Al ERROR 
1894 006270 051652 BH26 
1895 06272 OS44E0 OT1 
189% 906274 DFa 
1897 SERR 57 
1898 008276 o44eSe EMI7 ;MSG_AD ERROR 
1899 006300 OS2I11 BH32 fAPTER WRITE CHECK CMD 
1900 006302 OSd4e0 OTI 
1901 006309 O5S024 OFa 
1902 SERR 60 
1903 006306 O44314 EMIS ;MSG Al ERROR 
1304 Ooesi0 seit BH32 
1905 1 DTI 
1906 19 o55024 OFa 
1907 SERR 61 
tap BoeseR Deaaee ate OCRING OFFSET CMD 
tai Soesse bead pH 
| 1311 O0sde4 Oas04 ao OFS 
1913 006326 044335 , EM2G ;MSG B1 ERROR 
1914 006330 DHS3 
| 4915 Ooea32 os44e0 OT! 
| 616 006334 O55044 OFS 
| 1917 SERR 63 
| 1318 0539 ovaa1y EM19 ;MSG Al ERROR 
| $918 Ogf340 OS0567 BHA SOFTER DRIVE UNLOADED & DOOR OPENED 
| 1920 GObs4e OS44e0 DTI 
| 1931 Goes44 Osso24 OFe 
| 1882 SERR 64 
| 1923 o0ea¥ 044335 EM20 ;MSG B1 ERROR 
j 
i 





ee 


f 


; 


es 


SER EGLO BIOS 


$5 


sa se lal tag 


a 


ESR PR Sa 


w 


bh bs oh B88 + 0 = 0 0 bs 0 0-2 2 hm = 2 be + 0 > + b= BPH bpm 
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ne RRROR POINTER TAB 


CMB 

0063S0 OS06& 
006352 
006354 OS504 
006256 









;SPIN SET 
;AFTER LOADING HEADS WITH DIOR OPEN 


;MSG AO ERROR 
;MSG 80 ERROR 
;MSG Al ERROR 


;MSG Bl ERROR 





;CARTRIDGE NOT CLEARED 
‘AFTER DISK PACK REMOVED 
sVV NOT CLEARED 
;MSG AD ERROR 
;MSG BO ERROR 


;MSG AL ERROR 


;MSG B1 ERROR 


ee 


SSSSSSSSsEy 
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fre 
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cee Fe OEE SO 
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g-2 


054460 
Osso44 
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ERROR POINTER TABLE 


t= ] 


sERR 101 


AcE 
Ceo -0- 
wo wn 


g AaVz2 
aOe-- oo 


2 sof 
SB ace 


Qaz 
Oe 
Ww 


;ERR 105 


O3-NOV-76 15:34 PAGE 40 


;SPIN SET 
sAFTER LOADING HEADS WITH CART. UT 


:MSG AQ ERROR 
;MSG BO ERROR 
;MSG Al ERROR 


;MSG 81 ERROR 


:VV_SET 
sWITHOUT PACK CMD 


;DSC_NOT SET 
;AFTER EVEN PARITY ISSUED 


LEARED 
TE LOCK SWITCH DISABLED 


;ATTN NOT CLEARED 
;AFTER UNIT SELECT PLUG REMOVED 


;NED NOT SET 
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ee 
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OZREJB. CMB 


O3-NOV-75 15:31 ERROR POINTER TABLE 
006634 oSS064 DF10 
sERR 113 
DO663% o44124 EM13 ATTN NOT SET 
053612 DHS3 'AFTER EVEN PARITY ISSUED 
2040 42 054460 OT] 
204 44 055024 OFS 
sERROR 114 
eos Dobbs 044273 EM1e :MSG BO ERROR 
0536! DHSS 
2045 O06652 pecgea O71 
* Fiend eet ERR LIS 
2048 O066S6 046077 EM49 sWRL_NOT SET 
2048 006660 053161 DHS ‘AFTER WRITE LOCK SW ENABLED 
Shey Bocees | Sc0e4 BF 
1 4 OF 10 
ene ERROR 116 
DOSES O44ORS EM12 CONT NOT RDY 
2054 006670 OSi4le2 DH1S ‘AFTER PACK CMD 
2055 006672 O54460 DT] 
2056 006674 OSS064 DF10 
2057 ERROR 117 
5058 O06676 O44OEE Em12 CONT NOT RDY 
2059 006700 051435 DH2O AFTER SEL OR CMD 
2060 006702 DT! 
2061 006704 O55064 OF 10 ; 
2062 ts ERROR 120 
Spe oe 906710 ee i958 OHe! AFTER SUBSYS CLEAR 
2065 O06712 OS4460 OT! 
o3e6 006714 OS55064 OF 10 
ne 716 046133 sERR 121 cn WLE NOT SET | 
sree p76 053221 DHSO “AFTER WRITING WITH WRITE LOCK SET 
2070 7ee O54460 O71 
2071 7e4 055064 OF 10 
e072 sERR 122 
726 044637 EM27 NED NOT SET 
2074 730 051550 DHe3 AFTER WRONG PORT SELECTED 
2075 006732 OS4460 OT! 
ot Eealicte” mapgent) ERR 123° 1° 
2078 006736 guage : EMI? :MSG_AO ERROR 
2079 S067%0 I H ‘AFTER WRITING WITH WRITE LOCK ENABLED 
See DE pesoes Br 
2082 wa s ERROR 124 
coe 006 ate 5 AFTER RECAL CMD 
fe i Be Bo 
: sERR 125 
088 006 273 EM18 MSG 80 ERROR 
1 DHSO AFTER WITING WITH WRL ENABLED 
2030 006 OS4460 OT] 
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;MSG Al ERROR 


zoed cake God Ed eae 
dead ooss G66 Glos bees Gass foes - GEES GBS BSE 
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;MSG 81 ERROR 
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ete [a falsta tata tate eet ER eA SINT A Hittite ote ith ta tt ee ae ae a see 


ion Lae hae hah hoe koe hoe hae Lon hoe Lon eee hem Lae Lan ban hon Lam bam beet bees beam, hows, Louk kaon Damn, hewn haan Lean hewn Loam, Loan haw Lean Lam bow bow, ban ban bam ban bam bam bem bem bath ete bee 
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TABLE 


DRIVE NOT READY 
RTE AC POWERED UP 


;CONT NOT READY 
AFTER ST SPIN. CMD 


;NO ATTN 


;CERR NOT SET 
AFTER TIMEOUT TO POWER DOWN 


;AC LOW NOT SET 


;NED NOT SET 


;NO_RDY 
sAFTER CLEAR CMD 


iF LO NOT Gene 
AFTER AC POWERED UP 


;VV NOT CLEARED 


sATTN NOT CLEARED 








RK AGNOSTIC. PART 3 Y11_ 27( -NOV=7) 5:34 PA yey 
HEE. ES ANTEC PO > CRUE ETGRG IONE SO wee 
2204 007250 OSI5i6 pz 
ee fee i ea 
2208 007256 045643 EMYS :WV_SET AFTER HDS LOADED 
1 Hs IWITHOUT "PACK’ CMD 
16 007 Tl 
il 5 4 OF 10 
eel sERR 156 3 
ssi forsee Besses pmae iM ER SEEK WITH W=0 
2215 007272 OS44ED OTL 
516 007274 OSS064 OF 10 
eel? SERR 157 
18 007276 045777 EM47 SCYL ADDR CHANGED FROM 0 
2219 007300 052753 DANS 
sos, Bovaad | becces Brio 
;ERR 160 
007306 c44252 EM? sMSG AD ERROR 
Ssee Dovais peaues ite 
eset Speats feease Bre 
sERR 161 
2228 007316 044273 EMIS :MSG BO ERROR 
5553 Parase peases it 
2231 007324 OSS044 OFS 
5532 SERR 162 
5333 007326 044314 EMIS :MSG Al ERROR 
224 007330 052753 OHYS 
P35 007332 OS44ED OTL 
— ERR 163° 
| 2238 007336 044335 : E sMSG B1 ERROR 
a ee & i 
3541 OS5044 OF9 
5545 schist NXF NOT SET 
cet oer sc8 eae DHY6 * AFTER URETE DATA WITH VV=0 
PeuS 007362 OS4460 OT! : 
| Bou 007354 O55064 DF10 
| 5% ou4ese sERR 165 7 MSG AO ERROR 
ate ies 053012 DH46 . 
bu736e 54460 OT 
os5024 OF 
;ERR 166 
| 007366 O44 EMIG ;MSG BO ERROR 
| BBey 05301 OHY6 
O54460 OT 
055044 OF 
| ;ERR 167 
| 2258 90737% ON¥a1y EM19 ;MSG AL ERROR 
| 2259 007400 053012 OH46 





2 ee a - - ee ee ee 


Se a os eee oe 





2260 oO07402 OS4460 oT! 
007404 OS5S024 OFS 
335 ga 170 20 MSG B1 ERROR 
2264 sat peaaie DHY6 . 
2265 OO7412 OS4460 OT1 
007414 955024 Ne 
sERROR 171 
sor Domus peau ate iAETER READ HEADER CMO 
2270 BD 3 05 DT1 
2271 24 055064 OF10 
2272 ERROR 172 
e273 g07426 gueseo Erie sNXE p10 NOT SET FAULT 
HS -  TAFTER SEEK WITH VV=0 
2275 007432 OS4460 5 eee ; 
2276 OO7434 O55064 DF10 
— ERROR a se 
2279 007440 pobess DH30 
2280 OO7442 054570 O75 
2281 OO7444 055130 DF1S 
esse _ ERROR 174 
007446 044356 EM21 :CERR SET - 
2284 007450 OS2023 DH30 
2285 O07452 054570 DTS 
a oo ee err i750 
Soe se ae a, ae ; ate SOP TER MOS FOUND 
2290 O07462 OS4460 OT! 
229] 007464 OSS064 DF10 
2292 ERR 176 
2293 DO746E 046325 EMSY sCANNOT FIND MDS 
eon oo7470 054267 DHeS AFTER SEARCHING ALL DRIVES 
niet poten OT1 
2296 74 055064 DF10 
2297 sERROR 177 
2298 0074 :VV_NOT CLEARE D 
6293 pe i303 DHI6 AFTER UNIT SEL PLUG REMOVED 
054460 OT] 
2301 007504 055064 OF10 
;ERROR 200 
| eat : ted AFTER. 
1 1 7 9 *AFTER WRITE HEADER CMD 
| 2305 007512 70 3 OTS 
| e 007514 055130 1S 
1 356 : 1 sCERR SET 
| Fe pores nase a: 
| 9310 007522 054570 OTS 
eis 007524 055130 ena a 
| gal 007526 046430 : MS6 ;UNEXP MEMORY PARITY ERROR 
| 2314 054332 DHb6 TEST #,PRAP PC 
| 2315 007532 OS4b16 OT6 
| 
i 


i 
i 
1 
| 
i 
' 
| 
j 
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231 
e3l 
e318 


007534 
007536 
ee 
Bovese 
0075S2 
007554 
0768 
ove 
bovere 
007574 
B07E08 
007602 
007604 
007606 
007610 
007612 
007614 
007616 
007620 
007622 
007624 
007626 
097630 
Bove 
BOvENB 
007644 
007654 
007656 
bo7ee2 
007664 





0S4774 
044273 


a 


OS4460 
OSS064 
046647 
050367 
054700 
985014 
046474 
0S3221 
OS4460 
0SS064 
O44SSE 
051627 
OS4460 
0SS064 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
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ERROR POINTER TABLE 


EM18 ;MSG BO ERR 
H37 s AFTER TIMEOUT TO POWER DOWN 


ENS? ;CERR NOT SET 
DH67 AFTER TIMEOUT TO ENABLE WRL 


fee ;WRL NOT SET 
EM64 ;WCE AT CYL 411,TRK 2, SEC 21 


EMS7 ;CERR NOT SET 
DHSO AFTER NURITING WITH WRL ENABLED 


DF 10 
;ERROR 210 


m 
rc 


;CERR SET 


3 
Sooreay 
a] 
| md aed 
oO Ue 


-—CQO00-O 
~ 


WG 


— oooo: oOo0o0o 
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S SSS S29 Sd Sad SS SS SS SE 


O000 OOO 
b= Bs hb Gs bee Bae 
£vo 


RRB NSE Cen Ton Soe IRS ROR Se SR ASAE aS 


MACYL1 27¢ 


10 
ERROR POINTE 


;ERROR 216 
0 
0 
; ERROR of 
0 
0 
0 
;ERROR 220 


io MmMucqo 

~4 =z 
od CY bse pee 
Nw 


wm 

Es 

% 

~u 

on 
ao~ 


Moooe 


m 
2 
S 
™ 
RoCoeo 


F 
3 


;ERROR 231 





;DTE SET 


O3-NOV-76 15:34 PAGE 47 
BLE 


;MSG AO ERROR 


;MSG Al ERROR 


;NO_RDY 
;AFTER READ DATA CMD 


;CERR SET 





BRERIG ATIA ASE CRORE SOOM OR NSB ARA EEE eaeS 





Ba ae a tall 


010016 46626 
010020 


attend 
10024 


010026 


a See 999 Ge2 


Ooo oOoOoOOoO oo 
——— bee he 
oo 

Bea Sacer Ske 


S 
2 


oOo000 
eas fee 

bot bes 
OR 


=e 
~ 
<= 


O000 2000 OOOO oO 
b= b+ bbe 2 bs Fhe a a oe 
[en a b+ b= b= be 


Oo000 20O000 
EuSR BBR BRB 


o000 
bt bb be 
oo000 
b+ b= &-- Be 





pee yat 7c 1006) O3-NOV-76 15:34 PAGE 48 
POINTE 


* JERROR ae 











ERRO TABL 


EM63 ;DLT SET 


0 


0 
;ERROR 233 
EME8 ; CANNOT ie ct 


INFO 
DH42 ;ON SECT 0,2,4,6,8 


DH43 ;ON SECT 1,3,5,7,9 


0 
; ERROR ce 
0 


;ERROR 237 


KO4 
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ERROR POINTER TABLE 


MACY 


IES STE 


;DURING RECAL CMD 


;RTZ_NOT SET 


’ 
’ 








Bees tee Boas isa Baad Bh ee es a 0 cee | 

Re Re 8 he ake eS eae ee. 
WOBs : | 
sted fees Gece Gece fees eee eee 
PAN RBYS BELT RANE Rous 2 | 
seg sees gee uN Bans aN Se so : 
MACE RECReATA TUTOR CCC aa 











eo ni 
Su litte 
e544 010206 
2es45 010310 
e545 O0103le 
2es47 010314 
ae 
e550 b10320 
e551 01032e 
2$Se 010324 
Ss ie 
2556 01033e 
2557 010334 
SF our 
est0 Ol 
eH tie 
ea ue 
2564 0190346 
e565 tess 
2567 010354 
2568 
2569 010356 
2570 010360 
Si Hie 
2573 
2574 010366 
2575 Rites 
525 010374 
2578 
Se ia 
2581 0104 
eS8e 010404 
2583 
e584 010406 
e585 010410 
2586 0104le 
2587 010414 
010416 
e590 010420 
2591 010422 
Seas 010424 
84 0104 
2 BBs 
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ERROR POINTER TABLE 








EM17 "MSG AO ERROR 
DH24 ‘AFTER OFFSET CMD 


EN18 ;MSG BO ERROR. 





o000 


;ERR 263 


oo000 


sERR 264 


oo0o0o 


;ERR 265 


oOo000 


;ERR 266 







o000 


EM18 ;MSG_ BO ERROR 
pass SAFTER WRITE HEADER CMD 





;MSG 81 ERROR. 


EEE 





SAS A Ue 


O000 O000 2000 OOOO O000 OOOO 2000 2000 2000 


Re Oe 
eh eh eee ee eee ee he ee 


ERROR RRR RR EASES Eee Enes 


— gagyar enn engoe 


UNIBUS RK& ORI 
MB 


[= | 
c 


A Gees S582 dea dees 1220 


oe £VoO 


oe Shas ORS 


Hes 2 
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000000 
000000 


000000 
000000 


800000 
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ERROR POINTER TA eatin 


oo 


;ERR 272 


oo0o00 


;ERR 274 


on000 


;ERR 301 


% 
B 


sERR 303 


;ERR 304 


o000 2000 20000 2000 








;MSG Al ERROR 


;MSG BO ERROR 
SAFTER RECAL CMD 


;MSG B1 ERROR 


;MSG_AO ER 


ROR 
AFTER WRITE HEADER CMD 
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DZREJB. CMB -NOV-76 15:31 ERROR POINTER TABLE 
 BB49 
eb50 .SBTTL PROGRAM SETUP 
2652 Q105S6 012737 000001 001352 PARSRT: MOV #1, PARAM ;SET FLAG FOR 220 START 
gb53 1064 o00402 BR PROSRT START PROGRAM 
Spee 010566 105037 001352 START: CLRB PARAM sCLEAR FOR 200 START 
BS BST BO aoricg MOET race sp fete Sahl onnene © 
see, Bioeod O1se4e tue : MOV —- #PR7, - (SP) :P ORDED 0 ee 
2659 010604 012746 O10612 MOV #1$,-(SP) :LSI-11 COMPATABL 
: 010610 o00002 RTI LOCKOUT ALL INTERRUPTS 
010612 


1$: 
2663 -SBTTL INITIALIZE THE COMMON TAGS 
2664 ;;CLEAR THE COMMON TAGS (SCMTAG) AREA 

MOV aSCMT 5 ;;FIRST LOCATION TO BE CLEARED 





2665 010612 012706 001100 3 
266 testa pheroe >:CLEAR MEMORY LOCATION 
2667 010620 022706 901140 CMP #SWR,R& ;;DONE? 
ob68 b10be4 DOL 74 | ;;LOOP BACK IF NO 
1 12706 001100 MOV #STACK, SP ::SETUP THE STACK POINTER 
om) | 03021 re © FEW VECTORS vec OT VECTOR FOR SCOPE ROUTINE 
5p7) ste pista? vane Sppose MOV #340 SE toTuEcy® titer 
73 D164 Ole? 3 030476 000030 MOV #SE OsENTVEC saENT VECTOR FOR ERROR ROUTINE 
74 O10654 O1 340 000032 MOV #340, JUEMTVEC+S ; LEVEL 
| 2675 010662 012737 033772 000034 MOV #STRAP, JSTRAPVEC :; TRAP VECTOR FOR TRAP CALLS 
| BB 010670 012737 o00340 000036 MOV #340 abrrapvecse; LEVEL ? 
2b 10676 012737 000024 MOV #SPWRON, J#PWRVEC ;;POWER FAILURE VECTOR 
2678 010704 012737 000340 O00026 MOV #340, a8PWRVEC+2 ; LEVEL 7 
2679 010712 13737 42 023634 MOV SENDCT,SEOPCT | ;;SETUP END-OF-PROGRAM COUNTER 
2680 O01 1170 CLR STIMES INITIALIZE NUMBER OF ITERATIONS 
2681 010724 005037 001172 CLR SESCAPE CLEAR THE ESCAPE ON ERROR ADDRESS 
82 010730 112737 000001 001115 MOVB #1, SERMAX ttALLOW ONE ERROR PER TEST 
sees 10736 012737 010736 001106 MOV #.,SLPADR ;: INITIALIZE THE LOOP ADDRESS FOR SCOPE 
2684 010744 012737 010744 001110 MOV #. -SLPERR ::SETUP THE LOOP ADDRESS 
2685 ;;SIZE FOR A HARDWARE SWITCH REGISTER. IF fof 3 SUND OR IT IS 
2685 , EQUAL TO A "=1", SETUP FOR A SOFTWARE SWITCH REGISTER. 
2687 010752 013746 OD0004 MOV DRERRVEC,-(SP) ~;;SAVE ERROR VECTO 
2688 010756 012737 011012 oo0004 MOV #64S,aHERRVEC 3:SET UP ERROR VECTOR 
2689 010764 012737 177570 001140 MOV #OSWR,S :SETUP FOR A HARDWARE SWICH REGISTER 
2690 010772 012737 177570 Oo01142 MOV #ODISP, DISPLAY }:AND A HARDWARE DISPLAY REGISTER 
-| pe91 Oli 177777 170132 CMP #-1, SUR *: TRY TO REFERENCE HARDWARE SWR 
| 2692 011006 Od1012 BNE 66S BRANCH IF NO TIMEOUT TRAP OCCURRED 
2693 He THE HARDWARE SWR IS NOT = -1 
2694 011010 BR 65$ BRANCH IF NO TIMEOUT 
gb3 11012 012716 011020 64S: Nov #65S, (SP) *:SET UP FOR TRAP RETURN 
2697 011020 012737 000176 O01140 65S: MOV #SWREG, SWR ;;POINT TO SOFTWARE SWR 
| 698 011026 012737 000174 O01142 MOV #DISPREG, DISPLAY 
2699 O11 012637 000004 66S: MOV (SP)+,aERRVEC ;;RESTORE ERROR VECTOR 
2700 
| 2701 O11040 005037 o01212 CLR SPASS ;;CLEAR PASS COUNT 
| 9702 O11044 136737 000200 001225 BITB  #APTSIZE,SENVM 3;TEST USER SIZE UNDER APT 
| p703 011052 001403 BEQ 5 He E NON-APT SWITCH 
2704 11054 012737 00122 001140 MOV #h “WREG, SWR *:NO,USE APT SWITCH REGISTER 
| 


a 


me ee ee ee 


UNIBUS RkS tae 
OZREIB. CNB 


~ 
ao 


OD NIWUTI-L GIT 


BULLET RSRE SEP EEEREE DAR ND ARRAS NNN 


Ryryrururururururyrururururan 


011062 
Bios 


011076 


O00 OOO 20M 
o-9 6-0 pe 20 ep P~ Poh 
O~2 p-2 pe 6-0 -b— bb 2p 
+8 2p > 20-29 +70 sho 
FOR VEY SoF 


QHd00O0O00000 
© 5020-2 6-2 b+ -< & = pH -2 Qe 
= 0 © = = b= 9 9-2 & 2 9-0 9 
= 0 & Oo oh 

SS 2Ac eR 


furu 
o=0-- 
£0 


OoOOGOOO0OOO 
B23 R= B42 G5 Be B= HB Be 
[ee oe oe on ee oe ee 


“NOV=7E 


012737 
Ole737 


012737 
012737 
4 i 





1§:31 
Oljle2e 
002340 


000001 
027654 
000340 


DIGGNOSTIC PART & 


600004 
OOCSOE 
172100 
009114 
000116 


occoo4 


000013 


MEMPAR: MOV 
MOV 


MOV 


flr 
HD 





ma oe 15:34 PAGE 53 
TAGS 


COMMON 


813, ERRVEC 
#PR? ERRVEC+E 


81, MEMBAS 
SMEMERR, MEMVEC 
ae? MEMVEC+E 


(SP)+, (SP)+ 


aennite, ERRVEC’ 


PC, CLRFLG 
SDEVCT 
SUNIT 


; TIMEOUT VECTOR 


;LO REG TO DETERMINE IF 
;MEMORY CHECK ENABLE AVAILABLE 
LD MEMORY CHK VECTOR IF DONT TIMEOUT 


;ADJ STACK 
;RESTORE TRAP CATCHER 


;CLEAR DDUMP THRU SIZFLG 


'FING OUT IF XXDP, ACT, APT: CHAIN OR DUMP MODE 


START1: TST y2 

BNE 1§ :BR IF AUTO 

SR PC, TITLE ;MANUAL, TYPE PROG ID 

ches 41,413 *13=LOADED BY 

INC DDUMP ;SET RKO& DUMP MODE FLAG 

Tyee alisce "REPLACE DRO PACK W/SCRATCH & DO<CR> 
1$: SAP S73 
2s: INC PPTpP ;SET ACT/APT/PTP DUMP MODE FLAG 
CHECK IF ALL PARAMETERS DEFAULTED. IF NOT, BEGIN INPUT DIALOGUE 
‘WITH OPERATOR. THE REPLY 10 "DRIVES TO BE’ TESTED” SHOULD BE 
:DRIVE NOS. SEPERATED BY COMMAS 8 TERMINATED BY <CR) 
: EX: DRIVES TO BE TESTED: 1,2,4<CR> 
ST2: TST PARAM 

BNE ih ;BR IF 220 STAR 

IMP M4 200 START, DEFAULT 8 SIZE THE BUSS 
1S: TYPE *DRIVES TO'BE TESTED 

JSR Bee Bavs GET DR NOS. 

TYPE mSG4 *BUSS ADDR 

JSR Pc. GBA GET BA 

TYPE MSGS ‘CONT INT VECTOR 

JSR pect GET INT VEC 


;AUTO MODE 
i CHECK v LOADED BY XXDP OR OTHER. SET FLAGS 8 NO 
;DEFAULT ALL PARAMETERS. 


ee 


TEST ONLY THOSE DRIVES T 








2 
5 


me ae tee ee ee ee ee ee 


BURRELL EP RMP RRRSer ctrl RERERBREREGHorE Did é 


-o-- 
-O 























RK& DRIVE DIAGNOSTIC PRRT 3 MACY31 27(1006) O3-NOV-76 15:34 PAGE 4 
CMS “NOV-76 25:31 INITIALIZE THE COMMON TAGS 





;0N THE BUSS 

11264 133 7 OO0041 O00013 ST2:  CMPB 41,813 s132LOADED BY XXxDP 

ll2e72 O01 BNE 1§ 

bien poses? 456 INC DDPCH »SET RKO& CHAIN MODE FLAG 

11 37 023750 ISR PC. TITLE 

11304 104401 035236 TYPE MSG? sDRO NOT TSTD 

11319 bo040e fe 874 

11312 005237 oos460 1S: INC ACTLI :SET ACT AUTO FLAG. 

011316 01 pri 901260 ST4: MOV #177440,SBASE  ;DEFAULT VALUE 

011324 Ol 10 601330 MOV 8210, RKVEC :DEFAULT VALUE 

011332 0047 Gevei0 JSR PC. SETINT 
011336 005237 INC I2FLG :00 “SIZE THE BUSS” TEST 
O1 134 012706 001100 STS: MOV sSTACK, SP sINIT STACK 

1134 012746 000240 MOV #PR7, - (SP) ;PSW LOADED TO BE 

O11 Se 911360 V $,-(SP) ;LSI-11 COMPATABLE 

O11 RTI *LOCK OUT ALL INTERRUPTS 
611360 0127 001356 SS: MOV gDBIVO, DRVPTR : 

11366 ae CLR NO. OF DRVS DONE 
011372 001216 CLR *CURRENT DRV UNDER TEST 
011376 012737 O11444 00004 MOV #15, ERRVEC sSETUP TIMEOUT ERROR VECTOR 
G1 1404 005777 167732 TST ;SEE IF L-CLOCK THERE 

11410 005506 INC LOLKF “PRESENT, SET F 

SLIM) G12) SEE coco =. GaRUEARec «VECTOR Fo 

911426 pers 16770e TST aPK sSEE IF P-CLOCK THERE 
011432 bose37 005510 INC PCL :PRESENT, SET FLAG 
S143 1 001346 MOV PCVEC,RO ?VECTOR ADDR 

11442 O00412 BR 

11444 - 18: CMP (SP}+, (SP)+ ;L-CLOCK NOT THERE, CLEAR STACK 
Oe pectes 011512 ooc004 MOV #4$- ERRVEC 

011454 005777 167654 TST aPKe ;SEE IF P-CLOCK THERE 

011460 005237 005510 INC PCL sPRESENT T FLAG 

O114e4 01 001346 MOV PCVEC, RO T 

0114 005512 3s INC DOTIM' INDICATES TIMING TESTS CAN BE DONE 
011474 012720 MOV SCLOCK,(RO)+ | ;SERVICE ROUTINE FOR CLOCKS 
011500 912710 MOV #PR7, (AG) 

011504 000407 BR TST :;GO0 TO NEXT TEST 

11508 022626 2s: CMP (SP)+, (SP)+ sP=CLOCK NOT THERE, CLEAR STACK 
11510 000767 BR 3$ 

011512 022626 4§: CMP (SP)+, (SP)+ NEITHER CLOCK THERE, CLEAR STACK 
11514 005037 ooSss12 CLR DOTIM *TIMING TESTS CANNOT BE DONE. 
011520 105401 035445 ,MSG13 ALL TIMING TESTS BYPASSED 


2 ee ee ne oe 
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OZR6JB.CMS O3-NOV-76 15:31 BASIC CONTROLLER TESTS, SIZING & SETUP 


-SBTTL BASIC CONTROLLER TESTS, SIZING & SETUP 


Be 





e814 £ s RSRRELERESERESEALEAARAAEALERAL LA LEAAAAALAELELRERALELFAESASESELE 
gei6 ; TEST 1 REFERENCE ALL CONTROLLER REGISTERS 
2817 1% THIS TEST VERIFIES THAT net THE CONTROLLER REGISTERS 
2318 :# CAN BE ACCESSED NABILITY ITY 19 BE ACCESSED WILL 
2219 te RESULT INA A TIMEOUT TRAP WITH MESSAGE. ANY 
2820 :# RROR IN THIS TEST WILL RESULT. Th, ROOTING ALL OTHER 
bel i STS AND JUMPING TO "END OF 
2823 : SFREREEREELERE RF FLEFRAAESELEERSLEFRERSRERFEPSARE SLE ELS EE SELS SEE 
2824 011524 O00004 tét1: SCOPE 
2825 O115¢6 b1e737 gg0001 001170 OV #1, STIMES ::D0 1 ITERATION 
2825 611534 012706 0011 MOV astack, SP ‘RESTORE STK PTR 
case 
2530 011540 012737 911656 OO0004 MOV $1$, ERRVEC -SETUP TIMOUT ERROR VECTOR 

1 011546 013705 001260 MOV SBASE.RS sSETUP_ INDEX REG. 
pa32 01155¢ 005768 000500 TST RKCS1URS) *REFERENCE ALL THE 
2833 011556 000010 TST RKCS2(R5) *CONTROLLER REGISTERS 
2834 011562 005768 gg00te TST RKWC(RS) 
2835 011566 TST RKBA(RS) 
2836 1ib7e 005768 000006 TST RKDA(RS) 
2837 011576 000012 TST RKDS(RS) s TIMEQUTS IN THIS SECTION 
2838 011602 005768 000014 TST RKER(RS) s INDICA TE THAT THE ONTROLLER 
2239 O11606 000016 TST RKASOF (RS) iREG ISTERS CANNOT BE OREABS 
2840 O11612 005765 000020 TST RKDC(RS) *TESTING SHOULD NOT PROCSED 
2841 011616 005765 o00024 TST RKDB(RS) *UNTIL THIS IS REMEDIED. 
2842 Ollg22 005765 TST RKMR1 (RS) 
2843 01162 005768 po0034 TST RKMR2 (RS) 
2844 Oll6s2 TST RKMR3(RS) 
2845 011626 000030 TST RKECPS(RS) 
eve 011642 o00032 TST RKECPT (RS) 
eee 11646 027500 ocooo04 MOV SBADTMO,ERRVEC ;SETUP TIMEOUT HANDLER 

11654 TSTe >3G0 TO NEXT TEST 
eet OL1ESE 022626 1S: CMP (SP)+, (SP)+ sRESTORE STACK POINTER 
2852 O11660 104007 ERROR 7 *ABORT-COULD NOT REFERENCE CONTROLLER REGISTER 
eb53 Oligs62 000137 022606 IMP SEOP 
2ess 
GE=s : 1 Beene oo gl To peepee catenin peeremmernper nme: 
e857 j ATE SIZE THE 
2259 it oe TEST IS ENT Y_IF "DRIVE SELECTION’ IS DEFAULTED 
2860 * EITHER BY RUNNING AUTO MODE OR A 200 START IN THE 
2861 * x HODE. on 
Bae iy ORORTROPCER ERROR 
i T CoRR ase ete ES me IF NOT SET, THE 

2864 * DRIVE WILL STED PROGRAM WILL BYPASS 
2865 + ESTING THA ive Bayt WAS A RESULT 
2BbE +i MDS, UFE OR BEING’ Set, OR BOTH NED © DRA RESET IN- 
2867 * DICATING THE OTHER PORT IS ACCESSED. 





2 
5 
bee 
Sa 


sua 
aS 


ed ed ed dd 
“NN 
a coed 
o 


aN 


Ce oe ee a on a od a 


Swat dddzzenas 


Soe et oo a ee ok ee ee ood 


PCR CE CR e Cee iP hh t ct iy Ht ERBE 
Beas 


BAN ST REMERON 


reyes 
Oo 


SUBURBS 
WOonNGU£ WwW 


0000 OO O000 BOOCKKOOOOOOOOOo0OO0000O 


a ed en ee or Bs ht hs 9 Os fh a 2 2-8 Bee 8 he D8 sh he 


fTuruoruory for froruororn =f 
BREB Se Kok F 


BASS 
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-NOV-76 15:31 Te SIZE THE BUSS 
[UP rere ccnneeneceneciene renee cine ce tee 
Ole737 000001 001170 "MOV #1, STIMES ::00 1 ITERATION 
012706 001100 MOV aSTACK, SP RESTORE STK PTR 
91 000010 MOV #SCLR,RKCS2(RS) ;SUBSYSTEM CLEAR 
pigegs Oo1422 oos44e MOV T10 Raney SPT MEOUT 
004737 O24226 JSR PC, FROY *FIND RDY 
04 20 aes ERROR a0 i *RDY NOT SET BY END OF SCLR 
001562 ; BEQ ST3 ;;D0 NOT SIZE, GOTO NEXT TEST 
104401 035351 TYPE MSG10 “HILL TEST DRIVES 
005037 O05464 CLR ORI :# OF DRIVES PRESENT 
12701 O0S466 * MOV sORIVO,R1 ORV FLAG 
104415 : SCOP1 
012706 001100 MOV #STACK, SP sRESTORE STK PTR 
012765 po0040 000010 MOV #SCLR,RKCS2(RS) ;SUBSYSTEM CLEAR 
01 001422 o0544e2 MOV TiO, TEMP *SET TIMEOUT 
OOH? 37 024226 JSR PC. ROY : ROY 
1041 ERROR 120 *RDY NOT SET BY END OF SCLR 
010065 000010 MOV RO.RKCS2(RS) — :SELECT THE DRIVE ADDR 
012765 000001 MOV #SELDRV,RKCSI(RSS ;SELECT DRIVE CMD 
013737 O0l422 oos442 MOY T10, TEMP 
004737 JSR PC, FROY sFIND RDY 
104117 : cel ERROR 11? ee *NO RDY AFTER SELECT DRIVE CMD. 
001046 see BNE Hs : 
ey 0 GE SARL, ro: 
basa CMP RO,TEMP] °  ;S/B SAME 
001016 BNE 3$ 
005700 TST RO 
00 BNE 4g 
005/37 005456 ist bp ;SEE IF XXDP CHAIN MODE 
00S464 4S: INC DRIVS : Ine DRIVE COUNT. 
005211 NC (R1) :SET DRIVE PRESENT FLAG 
104401 001201 TYPE SCRLF 
010046 MOV RO, -(SP) ;;SAVE RO FOR TYPEOUT 
104403 TYPOS 3G0 TYPE--OCTAL ASCII 
001 -BYTE 1 >:TYPE 1 DIGIT(S) 
sooo BY 0 SUPPRESS LEADING ZEROS 
004737 024636 33 JSR PC, BYP ;TYPE BYPASS DR # 
104001 ERROR ‘WRITTEN DR # DOES NOT MATCH RKMR2 DR # 
005721 cs: TST cRi)+ iSHIFT PTR TO NEXT DR. FLAG 
000010 CMP #8. ,RO : 
001306 BNE 1$ sMORE LEFT. 
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BORE YS ene UB -Roveoe les a1 HOCVAL ert ap Ob Ne Buse <p needy 
2324 012134 005737 O0S464 TST DRIVS 
bis 1401 035436 RY E Mecie : NONE 
12146 000137 023606 IMP $e0P 
2929 Tat 032737 001000 oos4o2 2s: BIT #MOS, HCS2 
e331 O13iee 001015 ramadan: Bit | faces 
Be b15206 oo0001 o0s412 BIT #DRA, HDS 
1 010000 o0s402 BIT NED, HCS2 
2936 Ol2210 001424 BEQ 9S 
Be Ol2212 3 BR 3 
012214 004737 024636 6S: JSR PC, BYP sTYPE BYP DR # 
2940 Olee20 104002 ERROR 2 :MDS DETECTED 
Se Ol2e2e2 BR S$ 
01 004 024636 7: JSR PC, BYP 
Saua pisesa 1 ERROR 5 ;UFE DETECTED 
eMS Olee32 000733 BR cs 
caus 012234 032737 010000 oOs4o2 8s: BIT NED, HCS2 
2348 Oleeve 001713 ail BEQ 4s ‘ on 
ee pissed 1 MOV RO,- ep) isSRNE BO, RO FOR TYPEOUT 
1 1 TYP : 
Sie es oF oa 
2955 012256 104010 ERROR 10 DRA & NED SOTH ne ZER 
Seer OieebO 000720 BR 4 
012262 004737 024636 9s: JSR PC, BYP 
| 2959 b1c266 104004 ERROR 45 NO DRA 8 NO NED = OTHER PORT SELECTED 
pa Ol2272 000137 o12622 10$:  JMP UNLORV 
$ Pe rereeeeenere rere ueseaeere rene rerenenenessaneneceneneeneann 
e364 j ATE VERIFY OPERATOR DRIVE SELECTIONS 
2966 iS THIS TEST IS ENTERED ONLY IF DRIVE SELECTION IS NOT 
| 967 ti DEFAULTED. EVERY DRIVE FROM 0 TO 7 IS ADDRESSED 8 
| p68 + FROLEER ERROR (CERRS EXAAINED, F Nor SET THE 
| 5358 + TO See THAT THE DRIVE ins INEUTTED Fon Test] eTE NOt A MILL 
Hr aN F ry Te THAT ORI ute : 
| 5303 te Pe. lee A Mos OR “Sef of Bot cot 
| seq + NED & ORR FP ts cHecKE raat Th HE INPUTTED INFOR' TO” 
ears if VERIFY It AAS Rot SPECIFIED 
2977 01 Tepeeeepeeepeeneeneeeeeneeennnnnnnnnnnennnennnnncnnnnnnniiaas 
5379 515508 Sa? 000001 001170 * MOV #1, STIMES D0 1 ITERATION 
| 
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005442 


005400 


oos44e 
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rE oR 


‘Belle fo Bak PTR 


;RESTORE STK PTR 


#SCLR, RKCS2(RS) ; SUBSYSTEM CLEAR 
T10, TEMP 


SF IND ROY 

:NO POY AFTER SCLR 
(RS) 

¥SELORVRKCSI(RS) SELECT ORIVE CMD 

10 Ten 1 


RDY 
NO RDY AFTER SELECT DRIVE CMD. 


eR, Tere 


;SHIFT PTR TO NEXT DR FLAG 
;INC DR# 


; MORE T 
3;G0 TO NEXT TEST 


TRY BYPASS DRIVES 
WRITTEN OR# DOES NOT MATCH RKMRe DR# 


F NOT SPEC BY INPUT 
DeCRENENT [Orr DRIVS 


a6 258 


;DR PRESENT BUT NOT SPECIFIED BY OPERATOR 


2 85 
“~ 


Eta ta 
o- 4 


_ 


hata bate fates 


o+o 








1coee 004737 024636 JSR PC, BYP ; TYPE BYPASS DRIVES 
1eS64 ERROR 6 
12566 38 BR les 


piece 004737 024636 6S: JSR PC BYP ; TYPE BYPASS DRIVES 
1 104002 ERROR 2 ;MDS DETECTED 
O1eS76 900762 BR 8s 
1 737 024636 7$: JSR PC, BYP 
Bt To4003 ERROR 3 ;UFE DETECTED 
012606 000756 BR 8s , 

12610 

isei To4Gb4 
Ole616 0007Se 

001237 


012620 
Olebe2 UNLDRV: 


024636 9S: SR pC. evP 
8$ 
BNE 1§ ;BRANCH IF MORE LEFT. 


;DRA & NED RESET - OTHER PORT SELECTED 


5p AERRAAEAES SASL LLL EARLE SLELELALLLALARERAAAEAERERA LEA ELA LE SES 
j TEST “ UNLOAD ALL DRIVES TO BE TESTED 


* THIS TEST UNLOADS ALL THE DRIVES TO BE TESTED 
% WAITS FOR ATTN & VERIFIES IT CAME BACK FROM THE CORRECT DRIVE 
‘ WITHIN APPROX. 100 USEC. 
‘ ATTN, DRIVE READY & DRIVE STATUS CHANGES ARE VERIFIED TO BE CORRECT: 
© EEEKKSAAERAELA ELSES SRE LALA AALS SLASHER AES AELAS SEAL RE LAER AAHRL SKE KE 1 
po0004 tST4: SCOPE 
Olebe4 012737 000001 001170 MOV #1, STIMES :;D0 1 ITERATION 
012706 001100 MOV sSTACK, SP sRESTORE STK PTR 
005000 : DRV BRE R 


01 012701 OOS46E HOV SDRIVO, RI SDRV FLAG 


1 O44 SCOP 
biseve biz70e 001100 MOV SSTACK, SP ;RESTORE STK PTR 
012765 000040 000010 sa sone RKCS2(RS) 

SR 


EYL LDL URS RERRASRNA duoc aac alee eee eres 


012652 
01 0 1422 o0s44e 0, TEMP 
DiS pha poa25e J PC, FRDY sFIND RDY 
12672 104120 ERROR 120 *NO RDY AFTER SCLR 
Oeb7s 1 TST (R1)+ 
1 0014 BEQ 4§ 
61 5e08 01 000010 MOV RO,RKCS2(RS) __;SELECT DRV ADDR. 
1 1 000007 MOV #UNLOAD, RKCS1(RS) ;UNLOAD CMD 
ise 1 001422 Soe oae MOV T10, TEMP) 
5756 004 024226 JSR PC, FRDY FIND RDY 
1 104017 ERROR 17 *RDY NOT SET AFTER UNLOAD CMD 
1 1 005417 TSTB —«HASOF +1 TEST FOR ANY ATTN BITS 
1 00100 5 : IF ANY 
1 1 : OR NO ATTN AFTER UNLOAD CMD 
1 1 005370 O0S417 SS: ITB  ATTN(RO),HASOF+1 sTEST FOR SPECIFIC ATTN 
012744 001001 BNE 2 ;BR IF THERE 
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OZR6JB. CNB 


3s SAVE RO FOR TYPEOUT 
;ORIVE & 





03-NOV-76 15:31 UNLOAD ALL DRIVES TO BE TESTED 
1 RROR 41 “WRONG ATTN AFTER UNLOAD CMD 
3038 Bt S528 493033 000200 o0s426 2S: IT #D.DRDY,HMR2 =’ 
356 515968 FE ERROR a3 D.OROY SET AFTER UNLOAD CMD 
oe Wes Te 040000 005426 3$: BIT aD osc, Heme org 
3098 Ole 104043 ERROR 43 :D.DSC NOT SET AFTER UNLOAD CMD 
3106 12774 05209 . 4g INC RO . sINCR DRIVE ADDR. 
et: B Saas B51 330 a BNE if = sBRANCH IF MORE LEFT. 
104 ; 
3ife THIS PART OF THE PROGRAM WILL BE REPEATED FOR EACH 
3108 :DRIVE PRESENT 
3108 :*SUNIT’ CONTAINS THE ADDRESS OF THE DRIVE CURRENTLY 
3103 UNDER TEST 
gi 013004 NUDRV: sENTER HERE FROM LAST TEST 
3113 CEKEELEEREE ER ERL EER ERE LEA LEEKS EAE LHL ERERK SARA EA AER SLE RK EES ASSHE 
311s tETEST 5 FIND NEXT DRIVE TO BE TESTED 
3116 2% THIS TEST FINDS THE NEXT ORIVE PRESENT & PUTS THAT 
3117 * ADDRESS IN ’SUNIT’ 
3118 # THROUGHOUT THE FOLLOWING TESTS, THE DRIVE TESTED IS 
3113 3 THE DRIVE WHOSE ADDRESS IS IN 'SUNIT’ 
312i ; © SLEKLARELEAEREKRLASRERALAA LASALLE ALEAA LEELA AAA RR RAERLALRRERAA LA LEE 
3lee 013004 o00004 téT5: SCOPE 
3123 013006 012737 000001 001170 MOV #1, STIME ::D0 1 ITERATION 
3124 013014 012706 0011 MOV TACK, ‘RESTORE STK PTR 
3125 013020 O1 000005 001210 MOV #STN-1, STESTN 
ice 013026 012737 000005 001102 MOV #STN-1, STSTNM 
3128 013034 005737 ODS4Eé4 TST DRIVS ;ANY DRIVES PRESENT? 
3153 OL soe rei 73 PE ‘sa? Are BRIVES. TESTED 
3131 {SOME bool a? 36065 IMP $e :NO, GO TO END 
313 013052 013701 001356 4g MOV DRVPTR, RL ADDR OF NEXT DRIVE FLAG 
3134 Her Dae 001214 T I VCT : Is FIRST DRIVE BEING CHECKED 
aie 1 We: 001216 1$: INC SinrT Tne GRIVE a fo TO NEXT DRIVE 
| 3138 ora07 DorPT rs in NO.PIND-NEXT DRIVE. PRESENT 
| 3139 13074 00S4S6 Pee ‘ DDPCH iN. aN Ho xr Ok 
tt 
| aS RR fig soe Be EE 
314 13158 stk 001356 3S: 1, ORVPTR iat off POINTER TO THE NEXT DR. FLAG 
3144 131 4 104401 035556 TYPE mScis : "DRIVE" 
3145 0131 13700 001216 MOV $UNIT. RO 
give 013124 010046 MOV RO, -(SP) 
14 
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FIND NEXT DRIVE TO BE TESTED 


TYPOS +360 TYPE-OCTAL ASCII 

.BYTE 1 *: TYPE 1 DIGIT( 

-BYTE O +: SUPPRESS LEADING ZEROS 
001201 TYPE  ,SCRLF 


FSRT: NTER HERE FOR POWER FAIL RESTART 
 PEEAHsUHEANANAEAEEEEEEEEEEEEEELEOTScaEEoSEOSSESSEESEEEToETeEETT 
:ATEST 6 PRINT DRIVE SERIAL NUMBER 


;* 
3% THIS TEST READS & PRINTS THE DRIVE SERIAL # FROM MSG A, WORD 11 
is IN BCD & IS PERFORMED ON THE IST PASS ONLY 


Tene peonemgpceme cos omg  IR° 


tSTé: 
000001 001170 MOV $1, STIMES -DO 1 ITERATION 
001100 MOV Stack, SP : RESTORE STK PTR 
001212 TST $PASS 
BNE TST? G0 TO NEXT IF NOT FIRST PASS 
024714 JSR PC, SUBCLR ho SUBS CLEAR 
ERROR 24 SERA BP BPTER SCLR 
035570 TYPE MSG16 ;DRIVE SERIAL NO. 
000093 000026 MOV B3, RKMRL (RS) :SELECT BYTE 23 
024652 JSR PC’ GSTA *GET STATUS 
005426 MOV HMR, R GET SERIAL # 
033256 MOV #SOCTVL, RY *GET ADDR CHAR BUFF 
MOV RY, -(SP) *STORE ON STACK FOR SSUPRS 
000003 MOV #3;R3 :SETUP CHAR COOUNT 
ROL Ri ‘INITIALIZE BIT POSITIONS 
1S: ROL Rl ;GET NEXT 4 BITS 
ROL R1 
ROL Ri 
ROL R1 
MOV Ri RO ING COPY 
177760 BIC #177760,RO OF AR CALL BUT LOW 4 BITS 
000060 BIS #60, RO SCORVERTCT TO ASCII DIGIT 
HOVE R , (R44 *PUT ASCII DIGIT INTO CHAR BUFF 
BNE 1$ ;BR IF ALL 3 CHARS NOT DONE 
CLRB =s-: (R4) “ELSE INSERT NULL TERMINATOR 
reat fee | stare se 
001201 TYPE * SCRLF 


: att 66. «ont 4 int fo eee eee 
jATE SET VV WITH PACK COMMAND 


i IF VV IS RESET, THE PACK COMMAND IS USED TO SET IT. 
Faken 
000001 001170 * MOV #1,STIMES ::D0 1 ITERATION 
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DZR6JB.C SET VV WITH PACK COMMAND 
3204 013304 012706 001100 MOV #STACK, SP sRESTORE STK PTR 
06 913319 004737 024714 ISR PC, SUBCLR 
$202 13314 104024 ERROR 24 sCERR AFTER SCLR 
3209 013316 032737 O00100 ooDs426 BIT #0. VV, HMR2 
3210 013324 901024 NE TST10 :3G0 TO NEXT TEST IF vv SET 
el 013326 104415 SCOP1 
3213 01333¢ 012706 001100 MOV #STACK, SP ;RESTORE STK PTR 
3215 013334 004737 024714 JSR PC, SUBCLR 
3216 013340 104024 ERROR 24 CERR AFTER SCLR 
3218 013342 012765 000003 oD0D00 MOV #PACK,RKCSI(RS) ;CMD TO SET VW 
3219 013350 012737 000010 oos44e MOV #10, TEMP 
3220 013356 004737 024226 JSR PC, FRDY ;FIND RDY__ 
3221 013362 104116 ERROR 116 ‘ROY NOT SET AFTER PACK CMD 
3556 013364 737 000100 o0s426 BIT #D. VV, HMR2 | 
3204 012372 O01001 | BNE TSTIO ::GO TO NEXT TEST IF VV NOW SET 
3225 013374 104027 ERROR 27 *PACK DID NOT SET V.V. 
3568 
3228 .SBTTL OPERATOR INTERVENTION TESTS 
| 3230 ge HHKEKAKEL ELLE HEHEHE EEE LEK EE EEL EEE EEE E EEE ER SEER ELLE ERE REE EEE 
| 3231 j RTEST 10 INTERLOCKS TESTS 
3233 & THIS TEST VERIFIES THAT THE DOOR & CARTRIDGE STATUS BITS 
| 3234 x ARE OPERATING PROPERLY IN MESSAGE AD & THAT THE REMOVAL 
| 3235 x OF THE CARTRIDGE CLEARS VOLUME VALID. 
3236 * IT FURTHUR VERIFIES ALL REMAINING STATUS BITS OF 
| 3237 2% MESSAGE A & B, WORDS 8 I. 
| 3238 2% THIS TEST ALSO CHECKS THAT THE SPINDLE CANNOT BE STARTED 
| 3239 * WHEN THE DOOR IS OPEN OR THE CARTRIDGE IS REMOVED. 
3240 + IT ALSO VERIFIES THAT LOSS OF VOLUME VALID RESETS SACK WHICH 
seul ii ASSERTS NON EXISTENT DRIVE IN RKCS2 
3243 ee SHREK ELIE SSK ELE LE KE KRA RE KLE AE ES LEEK EE KKK SLES E EERE ERE SKS ER EHE 
3244 013376 tST10: SCOPE 
3245 013400 012737 000001 001170 MOV #1, STIMES ::D0 1 ITERATION 
se46 013406 012706 001100 MOV STACK, SP RESET STACK PTR 
| 354g oiguie 004737 024714 JSR PC, SUBCLR 
| 3249 013416 104024 ERROR 24 ;CERR AFTER SCLR 
| 321 13420 104401 T MSG sINTERLOCKS TEST 
3524 biies 104401 paBEot TY Nee ONT * Exit OR SPACE TO CONTINUE 
| 3253 013430 004737 Oe741e JSR PC, CCSP *INPUT CONT-C OR SPACE 
| 3254 013434 000137 014504 IMP 8S RET HERE FOR CONT-C 
a5eP O13440 104401 0401 TY ,MSG47 sVERIFY DOOR CANNOT BE OPENED 
| 3257 O13444 104401 037126 TYPE MSG37 *DEPRESS SPACE WHEN DONE 
| 3258 013450 004737 027452 JSR PC, GETSP ;GET SPACE 
| 
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INTERLOCKS TESTS 


a 27( 1006) 
T10 


;DEPRESS RUN/STOP SW TO *STOP’ 
SOPEN DOOR & LEAVE IT OPEN 
er oBacee BAR WHEN DONE 


;D00R STATUS BIT NOT CLEARED 


po RKCS1(RS) 
KMR1CRS) ;CHECK WORD O OF MSG A&B 


Get aT 
rca DRA!D. WV , SBMR2 
PC, CKMRE 
siSe AD ERROR AFTER DRIVE UNLOADED 


#CCLR ROSIN) 
#1, ae. 1(RS) ;CHECK WORD 1 OF MSG A&B 


<b. boa. .BRHM!D. CART» , SBMR2 
Hse al ERROR AFTER DRIVE UNLOADED 
OOR OPENED 


;CERR AFTER SCLR 


;PRESS *RUN-STOP’ TO ’RUN’ 
VERIFY DOES NOT START 


;GET SPACE FROM TTY 


;SPIN SET IN MSGAO 
#<D.DRA!D.VV> , SBMR2 
PC, CKMR2 


;MSG_ AO ERROR _AFTER ATTEMPTING TO 
START SPINDLE WITH DOOR OPEN. 


#CCLR mesL(RS) 
pe" pei (RS) ;CHECK WORD 1 OF MSG A & B 





UNIBUS RK& DRIVE DIAGNOSTIC PART 3 
OZR6J8. CNB 76 15:31 


r+ 
Ry 


3 SSkae2 228 


01 
0 
| 
0 
| 
: 
, 


RR 


O00 200000 O00 
S23 FOR SesReR BTS 


SRR RRP RU RUR ADEN 


se 


SEES ££ £££ CESSES EL CEE 


& 
Tu 
~ 


~™ 





000S40 005436 
027126 


000026 
005426 


oo00c0 


005426 


005436 


000000 
000026 


005436 


O3-NOV-76 15:34 PAGE 64 
INTERLOCKS TESTS 


a<D. enero. BRHM!D.CART> , SSMR2 
PC, CKMRe 





a 27(1006) 


aCCLR, RKCS1(RS) 
RKMR1 CRS) 


#CCLR, RKCS1(RS) 
#1, RKMRICRS) 


#<0.HDHM!D.BRHM> , 
PC, CKMR2 









;MSG Al ERROR _AFTER ATTEMPTING TO 
;START SPINDLE WITH DOOR OPEN 


;MSG B1 ERROR 





;CERR AFTER SCLR 


;DEPRESS *RUN-STOP’ SW TO STOP 
REMOVE PACK & CLOSE DOOR 


;GET SPACE FROM TTY 
;SELECT WORD 1 


;CARTRIDGE STATUS BIT NOT RESET 


;CHECK WORD O OF MSG A & B 


;¥V NOT RESET AFTER CARTRIDGE REMOVED 


;MSG AO ERROR AFTER DRIVE UNLOADED 
:& CARTRIDGE REMOVED 


;MSG BO ERROR 


;CHECK WORD 1 OF MSG A & B 


SBMRe ;DOOR = O WHEN RUN-STOP SW IN STOP 


;MSG Al ERROR AFTER DRIVE UNLOADED 
:& CARTRIDGE REMOVED 


;MSG B1 ERROR. 


;CERR AFTER SCLR 


;PRESS 'RUN-STOP’ TO ’RUN’ 
;VERIFY DOES NOT START 


;GET SPACE FROM TTY 
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336 14 ? 24 R PC.GSTAT 
oi ANGIE GPT ATIEEE comce =| B.S TR one 
75 O14 1401 BEQ oS 
337% 014232 104100 ERROR ;SPIN SET IN MSG AD 
14234 9127 COS436 SS: MOV #0. RA, SEMR2 
a8 Bivete aus? Serio aH ea 
14 104101 ERROR :MSG AO ERROR AFTER ATTEMPTING TO 
3381 ‘START SPINDLE WITH CARTRIDGE REMOVED 
014250 905037 o0s440 CLR°  SBMR3 
3383 014254 737 027210 ISR PC, CKMR3 
3384 6014260 104102 ERROR 102 :MSG BO ERROR 
35 14 012765 100000 oo0000 MOV acc RKCS1(RS) 
14270 Ole765 000001 000026 MOV RKMRI(RS) ;CHECK WORD 1 OF MSG ABB 
3388 014276 004737 O246S2 JSR | STA 
$383 14 S046 005436 MOV “ SOLD. BRHM!D.DOOR> , SBMR2 
1431 7 126 ISR PC, CKMR2 
3391 014314 104103 ERROR .. te sMSG Al ERROR AFTER ATTEMPTING TO 
323¢ START SPINDLE WITH CARTRIDGE REMOVED 
014316 005037 o0s440 CLR SB 
3394 014 004737 027210 JSR PC, CKMR3 
333 014326 104104 ERROR 104 ;MSG B1 ERROR 
3397 014330 104401 042467 TYPE ,MSG6S PRESS "RUN-STOP’ TO ’STOP’ 
3398 014334 104401 037031 TYPE  {MSG36 ; INSER RT CARTRIDGE & CLOSE DOOR 
3399 014340 104401 043052 TYPE _,MSG70 ‘VERIFY HE 
3400 914344 104401 042775 TYPE MSGB9 *DEPRESS SPACE WHEN READY GOES ON 
s401 014350 0047 b25463 JSR Pc, GETSP *GET SPACE FROM T 
3403 014354 012765 1N0000 op0000 MOV #CCLR,RKCSI(RS) 
3404 014362 O0S06& 700026 CLR RKM KMRL URS) ;SELECT WORD 0 
40S 14366 0047 37 Detes2 JSR PC,GSTA 
06 O14 737 000100 ons426 BIT #0: VV, HMRe 
3407 O14400 001401 BEQ 75 
3408 104106 ERROR 106 sVOLUME VALID SET WITHOUT PACK CMD 
| 3410 o14404 7S: 
| sti 014404 012765 100000 oop0000 MOV #CCLR, RKCS1(RS) 
3412 O14412 O1e765 O00003 00000 MOV #PACK’ RKCSI( RS) ;PACK CMD 
3413 014420 013737 001422 o0s44e MOV ui 0, TEMP 
3414 014426 004737 O2e4226 ISR C,FRD rey sFIND CONTR RDY 
suis 014432 104116 ERROR Me CONTR NOT RDY 
| 3417 014434 032737 000100 oDs426 BIT #0. VV,HMR2 
3418 O14442 001001 BNE 64$ 
3419 O14444 104027 ERROR 27 ;VOLUME VALID NOT SET AFTER PACK CMD 
| 3420 01 64S: 
| 34 14446 004737 024714 JSR PC SUBCLR ; 
23 ores PbWoe4 ERROR : sCERR AFTER SCLR ) x 
3425 O144S4 012765 000007 ocD0000 MOV #UNLOAD, RKCS1 (RS) UNLOAD CMD , 
3426 014462 013737 OO0l4e2 oOs44e MOV 10 TEMP] 
| 3427 014470 004737 Oe4e2e6 R ISR C,FRDY sFIND CONTR RDY 
| 





aa ee + - - + 2 
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TREIB. O3-NOv- T10 _“INTERLOCKS TESTS 
14474 10401 017 . ERROR 17 ;NO ROY AFTER UNLD CMD 
14476 =37 os44l2 JSR PC, TSTATN 
14502 104020 ERROR 20 :NO ATTN AFTER UNLOAD CMD 
14504 
i) Fs s SRESSSESSSSAEFSESRESESELSSESKRESSSFSSSESEREFLSREERELE SELES ES EAFSES 
Ea 8 TEST 11 UNIT SELECT PLUG TEST 
a3 + THIS TEST VERIFIES. THAT WHEN THE UNIT SELECT PLUG mi PULLED 
3 :* OUT, ¢ RESETS ATTN & VOLUME VALID 
3438 + THE * ORIVE Oye beh Ee NON EX STENT IVE aa 
3439 + FURTHUR, THE OPERATOR IS ASKED TO INSERT ANY NUMBER OF 
3449 te UNIT SEL sete PLUGS. THE PROGRAM WiLL RESPOND BY TYPING 
344) 3 SOON MS 'T IS INSERTED. 
sie i THIS Soe ion OF THE TEST IS TERMINATED AT ANY TIME BY A CONTROL-C 
| S444 : -SERFSSSSSSESSAHA LALLA SSA SSSA LSLAESESSSEAAEALASALE REE ELALEERFLAAE 
| Mas 914504 éT11: SCOPE 
3446 014506 012737 900001 001170 MOV #1, STIMES 3:D0 1 ITERATION 
| and 014514 012706 091100 MOV sStAck, SP ‘AeSTORE STACK PTR 
14520 004737 024714 ISR PC, SUBCLR 
| seo piesa 104024 ERROR 24 ;CERR AFTER SCLR 
| 3452 O14526 104401 O3S644 TYPE  ,MSGI8 UNIT Le UG TEST 
| 3453 014532 104401 040671 TYPE mSGS2 5 CONT. oR SPACE TO CONTINUE 
| 3454 014536 004737 O27412 JSR PC, CCSP 
| 3455 014542 000137 O1S3le2 JMP 128 TURN CRPRE® FOR CoNnT-c 
me, 1vENe 1276s 00029 00002 MOV so #PAT.RKMRI(RS) ;EVEN PARITY TO GET DSC & ATTN 
| 4Ss8 o14ss4 ares Devese ISR PC, GSTAT 
| 3459 p1N5b0 012737 001 oos440 MOV ach. BTID. PAR> , SBMR3 
| 3460 014566 004737 027210 JSR PC, CKMR3 = 
sib 014572 104114 ERROR 114 :MSG BO ERROR AFTER SEL DRV WITH EVEN PARITY ISSUED 
: 
| 3463 014574 032737 040000 Oo0S426 BIT #D. DSC, HMR2 
| 3464 014602 001001 BNE 1$ 
| 3465 14604 104107 ERROR 107 ;DSC NOT SET AFTER SEL DRV WITH EVEN PARITY 
sue O14606 012765 100000 o00000 1S: MOV #CCLR,RKCSI(RS) 
| 3468 014614 904737 Oe4ese JSR PC, GSTAT 
| 3469 014620 004737 Oev4le JSR PC’TSTATN . 
3470 014624 104113 ERROR 113 3, ;NO ATTN AFTER SEL DRV WITH EVEN PARITY 
55 D14626 104401 035317 TYPE  ,MSG9 sREMOVE UNIT SELECT PLUG 
| 3473 014632 104401 037126 TYPE MSG37 DEPRESS SPACE WHEN DONE 
sim 014636 737 027452 JSR Pc, GETSP GET SPACE 
| i oococo MOV ace RKCS1(RS) 
3495 atta etd seep eS JSR KOE 
| 34 14654 004737 Oed4le JSR Fe + eTATN sRETURN HERE FOR SPACE 
|B Bee Tet en 
z180 1 104111 ill REMOVING UNI UNIT SEL PLUG, DID NOT 
| 34B2 O14664 012765 100000 000000 35: MoV WCCLR,RKCSI(RS) ° 
| 3483 014672 004737 O24e52 JSR PC, GSTAT 








RK& DRIVE DIAGNOSTIC PART 3 MACY11 27(1006) O3-NOV-76 15:34 PAGE 67 


2 
asin 


DZREJB.CMB8 O3-NOV-76 15:21 Til UNIT SELECT PLUG TEST 
3484 14676 019000 030010 iT NED, RKCS2‘RS) 
sis Ol it NE 4g 
86 it 10411 ERROR lle sREMOVING UNIT SEL PLUG DID NOT 
8 : ASSERT NON-EXISTENT DRIVE 
83 O14710 154401 O¥2660 ug: TYPE ~,MSG67 sRDESELECT ALL OTHER PORTS 
80 014714 4o4 401 037126 | TYPE  'M5G37 TYPE SPACE WHEN DONE 
3131 14720 027452 JSR PC, GETSP GET SPACE 
3483 014724 104401 037 7 ,MSG38 s INSERT UNIT SELECT PLUGS 
Sioa BINSSS iBuupt Bsoks6 ier "MSG39 Foe EE RON TRELTe WHEN EINISHED 
3495 014734 104401 041152 TYPE ‘MSGsS fEXIT WITH conmecT ONT SELECT PLUG # 
3138 O14740 O13746 OOl2ié MOV SUNIT,-<SP) $s SAVE I FO TYPEOUT 
3498 014744 104403 TYPOS 2:60 PES . fd TAL ASCII 
3499 014746 001 BYTE 1 ::TYPE 1 DIGIT(S) 
350° 014747 900 BYTE 6 :;SUPPRESS LEADING ZEROS 
ea 14750 104401 001201 TYPE  ,SCRLF 
3503 014754 105777 164164 S$ TSTB 40s. @3 TKS ;SEE IF CHAR TYPED 
3504 014760 100014 BPL. £3 BR IF NO 
3505 1N7be ll 164160 001160 MOVE a R ELSE READ 
$506 O14 Os 001160 BIC 8tC<1?7>,$TMPO :GET RID OF JUNK, IF ANY 
14776 ea 1160 000003 chp TMPO, #CON jSEE IF CON oL-¢t 
20 15006 TOI 036513 YPE  ,MSG31 :? 
3511 015012 oosoo0 6S CLR RO 
BH MEE Bitte ame coco REI nue 10 
| 3614 Bisbee O1e7e8 p00000 MOV - BSELDRV,RKCSI(RS) ; SELECT ORIVE CMD 
Be ee a ee 
$17 0150 MONI? ERROR 11? {CONTR ROY NOT SET 
} 
| 3519 o1soso 010000 900010 BIT BNED, RKCS2(RS) SEE IF UNIT SELECT PLUG INSERTED 
| Bo) Hes eth Bo BS 3 IF MATCH DRIVE NO IN CS2. BR IF YES 
| 3633 Of 000010 CMP RO, #8. of 8 DRIVE NOS TRIED? 
| 3623 ised rae BNE 7 on BR IF_NO 
| ee 015070 000731 BR Se ELSE RETURN 
1 000100 o0S426 8S: IT . W, HMRe 
23 te aye ate se. sTYPE SAME UNIT SELECT PLUG RDY ONCE 
oc 15102 O1e76— 000000 MOV SCCLR, RKCS1(RS) 
015110 P 10 MOV RO.RKES2(RS) _ ;DRIVE ADDR 
| 3530 1e114 12765 0903 gqoo0g HOV aPhick  RKCSI(RS) “PACK CMD 
ey 12155 ete poa256 - er engnrl FIND CONTR ROY 
| 3633 015134 104116 ' ERROR 116 ;CONTR NOT RDY 
a4 015136 O10046 MOV RO, -(SP) $88 i “Ee PLOY to. 
5% 16140 104403 TYPOS YPE=-OCTAL ASCII 
| $e Btetus == Boo ‘BE OO i fepuconenne 
| 3639 015144 104401 001201 TYPE ,SCRLF she 
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-NOV=76 15:31 UNIT SELECT PLUG TEST 
= 015150 000701 BR S$ 
a3 1S1S2 012765 100000 op0000 9§: MOV SCCLR,RKCSI(RS) 
eo fie flees Geet Ome = Ay MRLDAMGESTtee 
ae 12188 1 Tyee Boeaae MOV T10, TEMP 
sve 15202 737 Oek2e6 JSR PC, FROY | 
3547 015206 104117 ERROR 11? :CONT NOT RDY AFTER SEL DRV CMD 
34g 015210 032765 010000 o00010 BIT #NED,RKCS2(RS) ;SEE IF CORRECT PLUG FOR EXIT 
3550 biSe16 141] EQ 10$ : IF 
3551 O01 104401 041152 YPE MSGSS ‘EXIT WITH CORRECT UNIT SELECT PLUG NO. 
3652 015224 013746 O01216 MOV $UNIT, -<SP) $s SAVE SUNIT FOR TYPE 
3653 HE CORRECT UNIT SEL PLUG # 
3554 915230 1 TYPOS ::G0 TYPE--OCTAL ASCII 
3555 015232 1 BYTE 1 :;TYPE 1 DIGIT(S) 
3556 015233 000 BYTE = SUPPRESS LEADING ZEROS 
3557 015234 104401 037230 TY MSG39 :DEPRESS CONT-C WHEN DONE 
$258 015240 000645 +} | 
3560 O15242 004737 024714 10$: JSR PC, SUBCLR 
3561 015046 104024 ERROR 24 sCERR AFTER SCLR 
see 015250 004737 o24ES2 JSR PC, GSTAT 
3554 015254 032737 000100 oos4e6 BIT #0; VV, HMR2 
' 3565 015262 001005 BNE 118 
015264 104401 037373 TYPE  ,MSGYO ;VV_NOT SET, INSERT UNIT SELECT PLUG 
so 015270 104401 TYPE MSG39 *DEPRESS CONT-C TO EXIT TEST 
358 015274 000627 BR 3 
3570 015276 104401 043100 118: TYPE  ,MSG71 ;SELECT CORRECT PORT ON OTHER DRIVES 
3571 015302 iow4OL 7126 TYPE NSG37 *TYPE SPACE WHEN DONE 
276 015306 Se ISR PC, GETSP GET SPACE 
015312 128: 
. 3S7E gs EELELELPERS EEE L ESHER LE REES BERE RELA ERE ERE SSE PABA E RRS RRL SSR SL ERSE 
77 j RTEST le PORT SELECTION TESTS 
3679 +e" OPERATOR IS ASKED TO SWITCH TO THE WRONG PORT 
3580 = & THEN DESELECT BOTH PORTS. 
$281 ii IN BOTH CASES, NON EXISTENT DRIVE SHOULD ASSERT IN RKCS2 
| 3583 + SERELEERELESSEGESE LES RESELL SLES EEE AEE UE SERS EE EERE AER S RE SERSE 
3384 015312 coo004 tSt12: SCOPE 
| 015314 012737 000001 001170 MOV #1, STIMES ;:D0 1 ITERATION 
| 358 015322 012706 001100 MOV STACK, SP *RESTORE STACK PTR 
| 3688 oO} 737 024714 JSR PC, SUBCLR 
| 3s press Bias ERROR 24” SCERR AFTER SCLR 
| Be Fie iete mere REE FS? FRBT SLEETIRN ETS gr on sence ea To conn 
3265 Biesa4 0097 f JSR = PCC ; INPU CONTROL-C OR SPACE 
oH 015350 000137 015530 IMP 4g "RETURN HERE FOR CONTROL-C 
: 





ad 
S 


* 
He UNLOADING GOTH RECHERECALLY & BY THE LIGHTS. ON THE FRONT PANEL 
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DZR6JB. O3-NOV-76 15:31 Tle PORT SELECTION TESTS 
1 104401 0375 TYP »MSGY sSWITCH TO OTHER PORT 
3233 pt ese4 140k p3750e TYPE Neca? ‘DEPRESS SPACE WHEN DONE 
3598 015364 737 JSR PC, GETSP GET SPACE 
200 15270 004737 O24bSe ISR PC, GSTAT 
Sa pt eseG 032765 yi 000010 BIT #NED, RKCS2(RS) 
3502 b1540 901001 SNE 1$ 
15404 104122 ERROR 122 ;NED NOT SET AFTER WRONG PORT SELECTED 
oe % 
3606 O1S40& 104401 037565 1S: TYPE  ,MSGH2 sSELECT CORRECT PORT 
3607 O154le 104401 037126 TYPE MSG? :DEPRESS SPACE BAR WHEN DONE 
3608 015416 004737 027452 JSR PC, GETSP GET SPACE 
33 1s422 024714 JSR PC, SUBCLR 
il is426 1 ERROR : ;CERR AFTER SCLR 
3613 015430 032765 010000 o00010 BIT #NED, RKCS2(RS) 
Si Bene (Bus) Eilon i 
315 1 1041 ERROR | ;NED NOT CLEARED AFTER CORRECT PORT SELECTED 
Sip ene ipa ee SEBEL SPRL! Se ore 
3619 ties 004 peFdeS JSR PC, GETSP : 
3620 O15456 004737 Oe46ESe ISR PC’ GSTAT 
3621 015462 032765 010000 000010 BIT NED, RKCS2(RS) 
322 015470 001001 BNE 3$ 
soe 015472 104133 ERROR 133 ;NED NOT SET AFTER BOTH PORTS DESELECTED 
3625 
15474 104401 037673 3S: TYPE MSGH4 ;SELECT CORRECT PORT 
$58 pt 104401 037126 TYPE  'MSG37 *DEPRESS SPACE BAR WHEN DONE 
3e8 015504 004737 ISR PC, GETSP 
3630 015510 004737 024714 JSR PC, SUBCLR 
| 3631 015514 104024 ERROR ;CERR AFTER SCLR 
$35 OIS516 010000 00010 BIT #NED, RKCS2(RS) 
3634 015524 OO141 BEQ TST13 ;:GOTO NEXT TEST 
3635 015526 104130 ERROR 130 :NED NOT CLEARED AFTER CORRECT PORT SELECTED 
$e 15530 O1 1 ooc000 4S: MOV #CCLR, RKCS1(RS) 
3638 pteese etd eat JSR PC, GStaT 
3639 015542 032765 010000 000010 IT #NED, RKCS2(RS) 
| 3640 O15550 001 Q TST13 ;:GOTO NEXT TEST 
3641 b155be 104401 037723 TYPE  ,MSG4S :CORRECT PORT NOT SELECTED, TRY AGAIN 
3642 015556 104401 037126 TYPE MSG37 sDEPRESS SPACE BAR WHEN DONE 
3643 015562 000762 BR ds 
we ss FSESLHERSKLER ELE AL ES KELLER LK ELEA SHE SRAE REEL ESSE RRA RRS SEAS SERRE SR 
a9 j ATEST 13 FRONT PANEL RUN/STOP SWITCH TEST 
| 3648 : THIS TEST ALLOWS THE HERDS TO LOAD. THE OPERATOR IS 
i 
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iS FRONT baneL RUN/S op” EH TCH TEST 


LEU (i teereannenseepermummmanneonentinet er: 


$81 


1§: 


3$: 


4S: 





#1,STIMES 3,00 1 ITERATION 






aSTACK, SP ‘ReSet STACK POINTER. 
PC, SUBCLR : 
24 sCERR AFTER SCLR 
,MSG20 sRUN/STOP SWITCH TEST 
MSGS *PRESS CONTROL-C TO EXIT_OR SPACE TO CONTINUE 
Pc, CCSP INPUT CONTROL-C OR SPACE 
6$ "RETURN HERE IF CONTROL-C 
,MSGYE ;D0 MANUAL DRIVE LOAD 
*MSGE9 *DEPRESS SPACE RHE DRIVE *READY’ ON 
Pc, GETSP :GET SPACE 
PC, GSTAT 
a0: ‘SPIN, 
140 sSPINDLE NOT ON AFTER DRIVE MANUALLY LOADED 
#0. DROY, HMR2 SEE IF DRIVE READY (LOADED) 
141 :DRIVE NOT READY AFTER MANUAL LOADING 
heeay i Brpregs op See HENCE FINISHED 
Be GETSP tOeT SPACE 
eCCLALR RKCS1(RS) 
#1, RK J RKAR fed (RS) ;SELECT WORD 1 
40. BOOR. HMR2 
ta ;DOOR STATUS BIT NOT SET 
,MSGYB sUNLOAD HEADS MANUALLY 
j SPACE BAR WHEN DONE 
PC, GETSP :GET SPACE 


sm? RKCS1(RS) 





1, RKARL (RS) sSELECT WORD 1 

PC, GSTA 

a0. ,HMR2 § ; CHECK HEAD HOME 

145 sHEADS HOME NOT SET AFTER MANUAL UNLD 
»MSGHE ;D0 MANUAL LOAD 

MSG *PRESS SPACE AFTER READY ON 

PC, GETSP 


e4 ;CERR AFTER SCLR 
#UNLOAD, RKCS1 (RS) ;UNLOAD CMD 





S 


Ene O8-ROV=7 


Gpegeseres . 
REERRASAEE 


o- 


set 


nines! 


RoMseOR Ree RR BS SRE 


Po bs b= Ff ah © Bue PA Pe Hae oe po beh bee . 


oOo00000 O00 020 020 OOO 
POOOOrnr FOr oo wo 


ROSS UTERUS TeASAAS SSSR SSN SAOSIN 


ST - teh! 3 


1S: 


001422 o0S44e 
Oe42e6 


024412 


Ol62le2 


37 000100 


000300 
027210 
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"3 FRONT PANEL a SWITCH TEST 


6S: 


tk TEST 14 AC LOW DETECTION 


Te ERC KC ie OK eC 


A PRELIMINARY AC LOW TEST IS PERFORMED HERE WHILE HEADS ARE UNLOADED. 
BATTERY RETRACT WILL BE TE LATER. 
WAIT FBR LOW TO ASSERT IN RKMR3. 
FROM THIS POINT, THERE IS APPROX 4 MS AVAILABLE BEFORE DC LOW ASSERTS 
Tye TnI ICATION BCE SHUT 5 OOiLL BE NON-EXISTENT DRIVE ASSERTING IN RKCSe. 
R POWER UP, VOLUME VALID IS CHECKED TO BE CLEARED. 
ee Oger ieee ree amen 
: ‘ 1, STIMES “:D0_1 ITERATION | 
#StAack, SP RESTORE STK PTR 
JSR _—«- PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
TYPE ,MSG21 sAC LOW TEST 
TYPE  ‘mSGS2 :CONTROL-C_TO BYPASS TEST 
:0R SPACE TO CONTINUE 
JSR PC, CCSP : INPUT CONT-C OR SPACE ? 
IMP 10$ *RETURN HERE IF CONT-C « 
TYPE  ,MSGY9 *TURN OFF AC(RET HERE IF SPACE) ™ 
MOV #-1, TEMP sSETUP TIMEOUT , a 
1S: J Pc, &STAT Hy 
BIT aCERR, HES 
ee 
ERROR 146 sCERR NOT DETECTED BEFORE TIMEOUT 


9S: IMP 
sACLO REQUIRES SECTOR PULSE SE_AND SINCE 
;ACLO WILL NOT AS 

PROBLEM I 


THiS TEST WILL 






MUV T10, TEMP 

JSR PC, FRDY ;FIND CONTR RDY 

ERROR 17° *NO ROY AFTER UNLD CMD 
ISR PC, TSTATN 

ERROR 20 mn ATTN AFTER UNLOAD CMD 


‘est is AC LOW DETECTION PART 1 





3$ piseynTs IS A TEMP JUMP#H® 
HEADS ARE UNLOADED 
on ON BE OU TO NE 


S BE 
E INATED OR AC LO WILL BE MODIFIED TO ASSERT 


I 
ITHER BE ELI 
BIT #0. 
BNE 2s 
ERROR 147 sAC LOW NOT SET 
MOV #<D.ACLO!D.FLT> , SBMR3 

JSR PC. CKMR3 

ERROR 203 ;MSG BO ERROR AFTER AC SWITCH OFF 








pro 


5 
32 


FER Gia 


See 22 
E Bee & 


ge 


PRELLPiLLERRREEPERERETEOECIe: RS RRR BRERRGO aS. ue 


22 eee 
S: See 


ee ee en a 


WB VGeHo BS wws 
WOVKWN£Wwr-O 


001422 
024 


000001 
001100 
024714 


On preeNostyc. PART 3 


oos4#4e 
000000 


000010 


00S426 
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001170 
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T14 AC LOW Det CTION PART 1 


33: MOV TS0000, TEMP! 
4S: MOV #CCLR Aueei RS) 

Bf pebthetsene) 

Bh se 

DEC TENPL 

EREOR 2p :NED NOT SET BEFORE TIMEOUT 
S$: TYPE ,MSGSO sSWITCH AC BACK ON 

TYPE  \™5G70 :VERIFY HEADS LOAD 

TYPE MSGE9 ?PRESS SPACE AFTER READY ON 

JSR Pc, GETSP GET SPACE 

ISR PC, SUBCLR 

ERROR 24 sCERR AFTER SCLR 

BIT #D.ORDY,HMR2  § ;SEE IF LOADED 

BNE 6$ : YES 

ERROR 141 *DRV NOT RDY AFTER AC UP 
6S: BIT #0. ACLO, HMR 

ERROR 152 sACLO NOT RESET AFTER POWER UP 
7$ BIT 8D. VV, HMR2 

BEQ 85 

ERROR 153 sVV NOT RESET AFTER POWER UP 
8S: 

MOV #CCLR, RKCS1(RS) 

ACK’RKCSI(RS) ;PACK CMD 

MOV T10, TEMP] 

ISR PC, FROY sFIND CONTR RDY 

ERROR 116 CONTR NOT RDY 

BIT #0. VV, HMR2 

BNE 64S 
“i ERROR 27 sVOLUME VALID NOT SET AFTER PACK CMD 
108: 


1 eaeeay Yt mea maernemammacmmnmmraine 
t ATEST 15 CHECK NXF LOGIC 


2 i 
at as TEST VERIFIES NON-EXECUTABLE FUNCTION (NXF) IS DETECTED 


iS AS A RESULT OF DOING A SEEK WITH VOLUME VALID RESET. 


SNS Pepa.” <capemmgeren econ 
MOV #1 STINE ::D0 1 ITERATION 
MOV aStACK Ape TORE STACK PTR 


JSR PC, SUBCLR 
ERROR 4 ;CERR AFTER SCLR 
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DZRSJB. O3-NOV-76 15:31 T15 CHECK NXF LOGIC 
3820 Oieuee 032737 010000 o0s426 BiT  SD.SPIN,HMR2  § ;SEE IF SPINDLE ALREADY ON 
1 O164 1021 BNE 64S : YES 
= 036365 TYPE  ,MSG2e9 ‘PLEASE WAIT, HEADS BEING LOADED 
016436 012765 000011 o00000 MOV #SRTSPL,RKCSI(RS) ;START SPINDLE CMD 
3825 O16444 013737 OO01422 oos44e2 MOV T10, TEMP) 
382% 164S2 904737 Oe4226 JSR PC, FRDY sFIND CONTR RDY 
$827 16456 104143 ERROR 143 :CONTR RDY NOT SET AFTER CMD 
3829 O16460 013737 001430 oos4H44 MOV T100 TEMPE 
3830 1 OO47 024444 JSR PC. FATT sFIND ATTN 
1 616472 104144 ERROR 144 =NO ATTN AFTER CMD 
#832 016474 64S: 
16474 737 024714 JSR PC, SUBCLR 
Ee Bieeae reaos4 ERROR 24 ;CERR AFTER SCLR 
3837 O16502 104401 036021 TYPE  ,MSG22 sNXF_TEST 
338 D1506 1044 S40671 TYPE MSGSe j PRESS CONT-C TO EXIT OR SPACE TO CONTINUE 
16512 004737 O2741 JSR Pc, CCSP INPUT CONTROL-C OR SPACE 
3840 016516 000137 O171l1e IMP 7§ *RETURN HERE FOR CONTROL-C 
sey2 016522 104401 O40S61 TYPE  ,MSGS1 sREMOVE UNIT SELECT PLUG TO CLEAR VV 
3843 O16S26 104401 037126 TYPE MSG37 *PRESS SPACE WHEN DONE 
seu" 018532 O04 027452 ISR PC, GETSP GET SPACE 
3846 016536 004737 Oe4eS2 JSR PC,GSTAT 
3847 O16S542 032737 OO0100 oos426 BIT #0: VV, HMR2 
ug Oleese rictbag ERROR 15, ;VV NOT CLEARED AFTER UNIT SEL PLUG 
3850 16554 00137 017112 IMP 7§ EXIT TEST 
3852 016560 032737 000100 oos426 1S: BIT #D. VV, HMR2 
3853 O165b6 001406 BEQ 2s 
3854 016570 104155 ERROR 155 VV SET AFTER HEADS LOADED 
3855 016572 000137 017112 IMP 75 EXIT TEST 
eo O1E576 004737 024714 JSR PC, SUBCLR 
3058 16602 104024 ERROR 24 CERR AFTER SCLR 
3860 O16604 012765 000001 O00020 2s: MOV 
| 3861 Dibble 1 900017 600009 HOV B=EEKRCCSLCRS) ;SEEK CMD 
| 3863 Dlteee Ooi? Dev2ee Tsk PC, PROY sFIND RDY 
| 3864 O16632 104131 ERROR ial "NO ROY AFTER SEEK CMD 
eee 16634 013737 001434 ooSs44e MOV TEMP! 
| soe bigeae teed 024540 JSR Pe ratte sFIND A 
3868 16646 104132 ERROR :NO BTN TAFTER SEEK CMD 
| 3870 oieeee ie 000400 005430 IT ~“— 
| ere oi 1041 OR 156 ;NXF_NOT SET AFTE® SEEK WITH Vv=0 
16662 000137 017112 IMP 7§ *EXIT TEST 
| sore 016666 032737 000200 005430 3S: BIT —- #D. FLT, HMR3 
| 








IEE PUG ROOST? HE UB PETE IS:ON ce 


3876 016674 001003 BNE 4g 
3877 O16676 104172 ERROR 172 sNXF_DID NOT SET FAULT 
ta 018700 000137 O17112 IMP 75 ‘EXIT TEST 
016704 012765 100000 o00000 4s: MOV #CCLR,RKCS1(RS) 
3881 1671 3 251 JSR PC, RDCYLA 
1671 7 13 TST cYLADD 
3883 016722 001401 BEQ S$ 
3884 016724 104157 ERROR 157 sHEADS MOVED WITH SEEK 8 NXF 
seep 016726 012765 100000 op0000 SS: MOV #CCLR, RKCS1(R5) 
3887 O1b7 34 : 000026 CLR RKTHRL (RS 
388 bier Bra nad 005436 MOV AYO BoC !D. SPIN!D. DROY!D. DRA , SBMR2 
3830 016752 004737 027126 ISR PC, CKMR2 
3891 016756 104160 ERROR 160 3MSG AO ERROR AFTER SEEK WITH vv=0 
3335 016760 012737 GOD600 oos44O MOV #<D.NXF!D.FLT>, SBMR3 
3894 016765 004737 927210 JSR PC. CKMR3 
38% 016772 104161 ERROR 161 sMSG BO ERROR 
3897 016774 012765 100000 onD0000 MOV #CCLR, RKCS1(RS) 
3898 O01 01 000001 000026 MOV #1,RKMRI(RS)  ;SELECT WORD 1 
3899 017010 004 JSR PC’GSTA 
3300 017014 O01 o01720 005436 V #0. SPOK!D.CART!D. DOOR!D. BRHM!D. TFOK> , SBMR2 
3901 017022 O04 126 JSR PC. CKMRe 
3902 017026 104162 ERROR 162 sMSG Al ERROR AFTER SEEK WITH VV=0 
3354 im 917030 005037 oos440 CLR SBMR3 
3905 017034 004737 027210 ISR PC, CKMR 
3906 017040 104163 ERROR 163 ;MSG B1 ERROR 
3308 017042 004737 024714 SR PC, SUBCLR 
3303 017046 104024 ERROR 24 ;CERR AFTER SCLR 
3911 017050 012765 100000 oD0000 MOV #CCLR, RKCS1(RS) 
3912 017056 O01 000000 MOV 8PACK’RKCSI(RS) ;PACK CMD 
3913 O1 013737 001422 oOs44e MOV T10, TEMP1 
3914 01 0047 37 JSR PC, FRDY sFIND CONTR RDY 
3316 1 104116 ERROR 116 "CONTR NOT RDY 
3917 017100 000100 o0S426 BIT #0. VV, HMR2 
3918 017106 O01001 BNE 65S 
17110 104027 om ERROR 27 ;VOLUME VALID NOT SET AFTER PACK CMD 
017112 73: 


55 EE 9 9 9 8 9 A EH 
j TEST 16 . READ & SAVE BAD SECTOR INFO & TYPE PACK SERIAL # 


He THIS TEST VERIFIES THAT CYL 410, TRACK 2 CAN BE READ. 
: TH A CONTAINS BAD SECTOR INFOR WHICH IS WRITTEN BY THE 
FACTORY DURING MANF. ALL SECTOR NFOR (BSE) WILL BE 
READ HEADER OR DATA ERROR PRINTOUTS. 
IF BSE INFO CANNOT BE READ, OR IF AFTER READING THE BSE INF 
IT IS DETERMINED THAT AN ALIGNMENT CARTRIDGE IS USED, 
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A MESSAGE WILL BE TYPED INDICATING THAT ALL 

FUTURE FORMAT AND READ-WRITE TESTS WILL BE BYPASSED. 

THIS IS DONE SO AS NOT TO DESTROY BSE INFOR OR AN ALIGNMENT PACK BY WRITING 
THE PACK SERIAL # IS TYPED IN OCTAL & FOR THE FIRST PASS ONLY. 


} EN, env ngateamaner eee oer: 
1 


2 oe me Oe i Oe Oe 


MOV 1 STINES D0 1 ITERATION 
MOV TACK, SAPS TORE STK PTR 

JSR PC, SUBCLR 

ERROR 24 sCERR AFTER SCLR 

CLR TEMP2 SECTOR CTR 

CLR TEMPS :Os22 SEC, 1220 SEC, 2=DONE 
CLR BSERR *BSE INFO’ NO GOOD IF SET 


MOV #BSE22,RKBA(RS) ;BSE TABLE FOR, 22 SECTOR FORMAT 
MOV #1000,RKDA(RS) HEAD 2, SECTOR O 
MOV #410. *RKDC(RS) CYL 410 


1S: MOV RKWC(RS) ;LOAD WORD CT 
MOV sRobeTA RKCST RSH S “READ DATA COMMAND 
MOV Ts0ogg tEMP1 — ;SETUP TIMEOUT 
FIND RDY 


JSR PC, FROY 
ERROR 226 *NO_RDY AFTER READ DATA CMD 
JSR PC, GSTAT ‘GET FRESH DATA 
BIT acERR, HCS1 
ERTOR 33, ;CERR AFTER READ DATA CMD 
INC BSERR *SET BSE ERROR FLAG 
i SDTE, HER 
RROR 230 ;DTE AFTER READ DATA CMD 
2s: BIT aDLT,HCSe 
ERROR 231 ;DLT AFTER READ DATA CMD 
BR 4§ 
3S: CLR BSERR ;BSE INFO OK 
4§: - TST BSERR *BSE READ OK? 
Q 8S BR IF YES 


$5 CEDACRS) TRY NEXT SECTOR 
CMP TEMPe, #S ; READ a 5 SECTORS? 


BNE 1§ :BR IF 
TST TEMP 
BNE 6$ 
ERROR 233 CANT READ BSE ON SECTORS 0,2,4,6,8 
BR TST17 *=GO TO NEXT TEST 

6S: ERROR 234 *CANT READ BSE ON SECTORS 1,3,8,7,9 
BR TST17 :GO TO NEXT TEST 


8S: MOV #6, RO sSETUP FOR WORD 3 OF BSE INFO 
MOV BSE22(RO),TEMPY ;PULL OUT CARTRIDGE TYPE INFO. 
BEQ 95 BRANCH IF DATA CARTRIDGE 
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The BSERR SEY USE ERROR FLAG 
BR 10$ 


9$: INC TEMP3 
ete The 38 
EQ 10$ 


TEMP2 
MOV #8SE20, RKBAC BS) ;BSE TABLE FOR 20 SECTOR FORMAT 
HOV #1001, ,RKDA(RS) HEAD 2, SECTOR 





10$: TST $PASS 
B i. 





NE sTYPE CART # ONLY ON 1’ST PASS 
TYPE CART SERIAL # 
MOV Woo, -(SP) 
JSR sCONVERT DBL BINARY WORD TO OCTAL 
JSR PC’ So FERS ‘TYPE SERIAL # 
TYPE  ,SCRLF 
TYPE * SCRLE 
123: JSR PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 
RETURN TO CYL O 
MOV #SEEK,RKCSI(RS) ;SEEK CMD 
MOV T50, TEMP *SETUP TIMEOUT 
JSR PC. FRDY FIND RDY 
ERROR 131 *NO ROY AFTER SEEK CMD 





MOV TS0000, TEMP1 ;SETUP TIMEOUT 


JSR PC. FaTte : ) 

ERROR 132 ?NO ATTN AFTER SEEK CMD 
BIT #CERR,HCS1 

BEQ 64S 

ERROR 210 sCERR AFTER SEEK CMD 


64S: 





; ee i eee Lee 
j ATE WRITE LOCK TEST 


is ms. Bb once ee aa THAT DATA WRITTEN, oN G8 SECTOR CANNOT BE 

+ IT ALSO OHE Ee FHA URITE PROTEC oF TAKES EFFECT ONLY AT 

ii SECTOR BOUNDRIES WHEN DOING CONTINUOUS WRITING ON CYL 0, HEAD O 
® HHBBEHBAHHEHBHHHHHHHEHEHEEHHEBHBHHHHHE HEE HEBHEHEHHE HEHEHE 







tST17: SCOP 
MOV #1, STIMES ::D0 1 ITERATION 
MOV aStAck, SP tape TORE STACK PTR 
TST BSERR SEE IF ALIGN CART y 
BEG 15$ *BR IF NO 
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LOCK TEST 
12% sELSE EXIT TEST 
PC, SUBCLR 
24 ;CERR AFTER SCLR 
,MSGe4 ;WRITE LOCK TEST 
MSGS2 PRESS CONT-C 10 EXIT OR SPACE TO CONTINUE 
Pc. ccsP INPUT CONT-C_OR SPACE 
1e$ ‘RETURN HERE IF CONT-C 
PC, GSTAT 
#0. WRL, HMR2 i SEE IF WRITE LOCK IS ON 
>BR IF NO 
ee 
be gE TSP :GET sPack 
PC, GSTAT 
4D. RL, HHRE ;SEE IF WRITE LOCK IS OFF 
to ;WRITE LOCK NOT DISABLED 
TOCYL ; SETUP 
CALADD sF 
HEAD ‘FILL HEADER TABLE 
FORMAT * ROUTINE 
PC, FHDTAB ;BUILD STD 22 SECTOR HEADER TABLE 


#HDTAB, RKBA(RS) 
#-66. , RKWC(RS) 


HEAD,RKDA(RS) ;HEAD ADDR 
HEAD 


#<WRHEAD> , RKCS1(RS) WRITE HEADER CMD 
TS0000 TEMP s SETUP TIMEOUT 


RDY $ RDY 
*NO_RDY AFTER WRITE HEADER CMD 

PC, GSTAT *GET FRESH STATUS 
aCERR, HCSI 
201 ;CERR AFTER WRITE HEADER CMD 
HEAD we 
HEAD, #3 ;SEE IF ALL HEADS DONE 
16 *BR IF NO 
PC, SUBCLR 
24 ;CERR AFTER SCLR 


#DATAO,RKBACRS) ;WRITE ALL O0’S 
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4100 020036 052765 000020 000010 Bis #BAT ,RKCS2(RS) 
020044 137000 000002 MOV ia en the cee’5 0, TRK O,1,2 
g / 


4102 O200S2 005065 o00006 CLR RKDACRS) 
4104 O200S6 012765 009023 opD000 MOV #<WROATA>, RKCSI(RS) ;WRITE DATA CMD 
4105 De00b4 013737 001434 oos44e MOV TSO000, TEMP1  ;SETUP TIMEOUT 
4106 737 Oe4226 JSR PC, FRDY :FIND RDY 
4107 020076 104011 ERROR 11 !NO RDY AFTER WRITE DATA CMD 
4108 620100 004737 Oo246S2 ISR PC, GSTAT :GET FRESH STATUS 
4109 920104 032737 100005 o0s400 BIT #CERR,HCS1 
4110 Oe01l2 OO1401 BEQ 65$ 
di 020114 104012 ERROR 12 sCERR AFTER WRITE DATA CMD 1 se, 
413 020116 65S: | 
4115 020116 004737 024714 ISR PC, SUBCLR 
re O20122e 104024 ERROR 24 ;CERR AFTER SCLR 
4118 020124 012765 901516 oo0004 MOV #DATAD, RKBA(RS) 
4119 O20132 052765 O00020 op00i0 BIS #BAI,RKCS2(RS) 
4] 520146 276 7000 oo00002 MOV #-66. #256. , RKWC(RS) 
4121 O20] CLR RKDACRS) : TRK/SEC 0 
dige O20iS2 013737 001516 001500 MOV DATAD, WD2 :EXPECTED WORD FOR TRUERR TYPEOUT 
4124 0291 1 l 000 MOV #<WRTCHK> .RKCS1(RS) “WRITE CHECK CMD 
aise pep iee ot ? ates 442 MOV TSO000, TEMP  ;SETUP rineout 
ais? Gopoed Soupig Or eee | ZERO PC FROY INO ROW AFTER WRITE CHECK CMD 
4] nite 024652 SR be GSTAT *GET FRESH STATUS 
4129 020206 032737 100000 oo0s400 BIT #CERR,HCS1 
4130 020214 001414 BEQ 675 
4i32 O20216 37 o40000 oDs40e2 BIT #WICE ,HCS2 
4133 O20224 001407 BEQ 6S 
4134 16537 000024 001476 MOV RKDB(RS),WD1 § ;GET ACTUAL MISCOMPARED WORD FOR TYPEOUT 
4135 O20234 737 Oebel2 ISR PC, TRUERR “CHECK AGAINST BSE INFO 
4136 O20240 104016 ERROR 16 ‘WRITE CHECK ERROR 
Hi? O202e42 000401 BR 67$ 
4133 020244 104022 66$: ERROR 22 sCERR AFTER WRITE CHECK CMD 
4141 020246 67S: 
ahs 
4144 02024 004737 024714 33: JSR PC, SUBCLR 
dN 020252 104024 ERROR 24 sCERR AFTER SCLR 
4147 genes 104401 oy 063 TYP ,MSGS4 sENABLE WRITE LOCK 
4148 60 104401 126 TYP MSG37 "PRESS SPACE WHEN DONE 
| 4149 020264 004737 027452 J PC, GETSP GET SPACE 
4151 020270 012765 100000 onp0000 MOV #CCLR,RKCS1(RS) 
4} b047 7 024652 JSR PC, GSTAT 
4] 032737 004000 oo0s426 BIT AD-WRL, HR ;SEE IF WRITE LOCK IS ON 
4] 104115 ERROR 115 ;WRITE LOCK NOT ENABLED 





a 
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DZR&JB. CNB WRITE LOCK. TEST 
ie 620314 000754 BR 3$ 
4] 16 Ol 001522 000 4g: MOV SDATAL,RKBA(RS) ;ATTEMPT TO WRITE ALL 1°S WITH WRITE LOCK SET 
di fedses soee Bosses Dood BIS — eBAT_RKCSECRS). 
4160 3 185000 Hoy a- see. * . »RKWC(RS) ; CYLINDER 0, HEAD O 
aie penn 12 Bpooss ooccoo MOV SWRDATA BKCSI (RS) 
vies Geese Geiray BS MST eee TEE gre 
Hibs 4 rage ERROR 116 CONTR NOT RDY 
ates 904737 024652 JSR PC, GSTAT GET FRESH STATUS 
4 : : 37 100000 o0s400 BIT aceRR, HCS1 
aise rire ERROR sCERR NOT SET AFTER WRITE WITH WRL SET 
4171 O20404 004000 O0S430 178: &BIT Spee :CHECK WRITE LOCK ERROR SET 
4172 Od4l2 001001 BNE +3 BR IF SET 
4173 OoO414 104121 ERROR 121 5 WRT LOCK ERROR NOT SET 
| aise S20H16 1 Os4240 o0S436 S$ MOV sD. DSC!D. SPIN!D. TRU. BROVED Vt DY Bae ai eae = 
4] 126 ISR PC. CKMR2 
4177 O41 ERROR le -MSG AO ERROR AFTER WRITE WITH WRITE LOCK SET 
BA or ee ee 
| 4180 104125 ERROR 128 ;MSG BO ERROR 
| 4182 C2044 O1 100000 900000 MOV #CCLR, RKCS1(RS) 
di Gemiey Ole goo} 000026 HOV 81, RKARL (RS) sSELECT WORD 1 
‘ IBS Deoveb Ole 31720 005436 MOV <6. SPOK!D. CART!D.DOOR!D.BRHM!D. TFOK> , SBMR2 
| 4186 12 ISR PC, CKMR2 
4187 O20S00 104126 ERROR 126 :MSG Al ERROR 
50: pos CLR SENR nA 
10 JSR PC, CKMR3 
| ERROR 127 ;MSG B1 ERROR 
024714 JSR PC, SUBCLR 
ERROR 24’ sCERR AFTER SCLR 
| MOV spaTao RKBA(RS) ;CHECK THAT NONE OF ORIG DATA 
neath Bis aba, RKCS2(RS) inns 
| 4197 020536 O1e768 165000 MOV #65 G3e* »RKWC(RS) _:AS RESULT OF WRITE WITH WRITE LOCK SET 
ai 020544 01 001516 O01S00 MOV EXPECT TED WORD FOR TRUERR TYPEOU 
4200 o205s2 oO1 000031 000000 MOV 8<WRICHK> ,RKCSL(RS) “WRITE CHECK CMD 
| H20s Oo} Bolis# Oost ROY TS0000, TEMPL =; SETUP aqineout 
| i : ERROR 15° "NO ROY AFTER WRITE CHECK CMD 
| 4204 737 024652 JSR PC, GSTAT GET FRESH STATUS 
| M205 020600 032737 100000 005400 BIT #CERR,HCS1 
. 4 
| 4208 920610 036737 oyo00s oos4o2 BIT sWCE, HCS2 
| 4210 1 000024 001476 MOV RKDB(RS),WOl § ;GET ACTUAL MISCOMPARED WORD FOR TYPEOUT 
| 4211 Ce06e6 bows? Gebel2 W3k PC, TRUERA ifhech AGAINST Boe. INFO 
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42} £ ERROR 16 *WRITE CHECK ERROR 
St BRR Am Bi 
sie 020636 104022 68$: ERROR 22 sCERR AFTER WRITE CHECK CMD 
17? 020540 69S 
4218 
4213 O20640 104401 042336 TYPE  ,MSG&4 sFOLLOWING TEST TEMPORARY BYPASSED 
Woe] ; THE CHANGE OF WRL LOGIC RESULTS IN A DSC AND ATTN TO THE CONTROLLER 
“de2 “WHICH RECOGNIZES IT AS AN AN ERROR 
4223 * THEREFORE, IN CONTINUOUS WRITING RKDA WILL ALWAYS = 1 WHEN THE 
4224 :WRL SWITCH IS ENABLED. 
4225 : THE FOLLOWING CODE WILL BE VALID IF THE PROPOSED ECO IS APPROVED TO 
| 4225 SELIMINATE THE CHANGE OF WRL LOGIC 
| 428 020644 000137 21650 IMP 128 EXIT TEST 
| 4230 20650 004737 924714 6$ JSR PC, SUBCLR 
wigs O2e06s4 104024 ERROR sCERR AFTER SCLR 
4233 De0e5b 104401 040772 TYPE  ,MSGS3 sDISABLE WRITE LOCK 
Prey 1O44O} 037126 TYPE MSG37 :SPACE BAR WHEN DONE 
4235 O2Db65 027452 JSR Pc, GETSP :GET SPACE 
| 4236 deve7e O47 37 0246 JSR PC’ GSTAT 
| 4937 O27 37 005426 BIT 80-HRL, HMR2 ;SEE IF WRITE LOCK OFF 
usa — sTEST FOR WRITE LOCK AT SECTOR BOUNDRIES 
a) , FOR CONTINUOUS WRITING ON CYL 0, TRACK 0,1,2 
' 4241 020708 104401 041063 TYPE MSGS4 *SET WRITE LOCK 
| 4e42 20712 013737 001432 001160 mov £5000, STMPO 
| iou3 020720 005037 O0l1b2 CLR STMP1 sBITO=O:WRITE O'S; BITO=1;WRITE 1°S 
004737 024714 78: JSR PC, SUBCLR 
a Tae 104024 ERRCR 24 ;CERR AFTER SCLR 
| 4348 920732 032737 000001 001162 BIT  sBITO, STMP! 
Hes 004 BNE BR IF WRITING 1°S 
| ie aves 001516 o00004 HOV oy TAO,RKBA(RS) :SETUP ALL 0°S 
| wees 01 001 o00004 8S MOV #DATA1,RKBA(RS) ;SETUP ALL 1’S 
424 ania 000010 BIS #BAI,RKCS2(RS) ° 
/ be07bb 1 o00002 MOV 63. #256. , RKWC(RS) -WRITE TRACK 0,1,2 63 SECTORS 
4 CLR RKDA(RS) *BEGIN AT TRACK AND SEC 0 
| 4257 621900 012765 goode3 90900 HOV BURDATA RKCS1 (RS) 
uses tats pete poaage ISR , ;FIND CONTR RDY 
gb 021020 104011 ERROR 11 “CONTR NOT RDY 
i 1022 100000 005400 BIT RR,HCS1 
oe RS He 
| 4265 021036 001011 BNE 10$ - 
Hebb 021040 1pueo ERROR 204 ;CERR NOT SET BY TIMEOUT 
4267 Oel042 104401 040772 YPE  ,MSGS53 ‘DISABLE WRITE LOCK 
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4 TYPE MSG37 sPRESS SPACE WHEN CONE 
seg ete mittens B33 JSR Pc GETSP eur § ACE 
420 1056 000137 021650 IMP 1e$ EXIT "eet 
ues O21062 005237 O0l1be 10$: INC STMP] 
ie23 G2el066 000716 BR 7§ :GO WRITE OPPOSITE DATA 
4975 021070 004000 005430 13%: BIT #D.WLE,HMR3 
4 021076 001 BNE 11$ 
Wee De1100 104 ERROR 205 :NO WRL GY TIMEOUT 
igs 021102 194401 040772 118: TYPE  ,MsGS3 DISABLE WEITE LOCK 
021106 104401 037126 TYPE MSG37 :TYPE SPACE WHEN DONE 
4281 QOelll2 004737 O274S2 ISR PC, GETSP 
uses 021116 013737 OOS4¥10 001164 MOV HDA, STMP2 ;STORE RKDA_OF ERROR 
4584 021124 013737 O0S410 OO1166 MOV HDA, STMP3 :STORE FOR ERROR TYPEOUT 
i386 21132 023727 901164 o00001 CMP STMP2, #1 SEE I IF TRK 0, 
1140 00164 BEQ *REPEAT,NO NEW Bata x XFER TOOK PLACE 
4288 Oell42 Neto 001164 o01024 CMP STMP2, #1024 soe 1 IF TRK 2 
4289 021150 001637 BEQ sREP REPEAT, NO ou Gaia Toc TO CHECK AGAINST 
4290 Oe1i52 023727 001164 o00400 CMP STMP2, 8400 SEE IF WRL A 
uses sit eae oo0025 000006 a igs RKDA(RS) Fh Se SECTOR AT WRL IS TRK 0, SEC 21 
4o33 ast i985 ei fe BR 558°’ : 
4295 021172 023727 OO1164 O01000 18$: CMP STMP2, #1000 ;SEE IF WRL AT TRK 2, SEC 0 
ica 821200 001004 BNE 19$ *BR IF NO 
4 021202 012765 o00425 O00006 MOV #425,RKDA(RS) ELSE SECTOR AT WRL IS TRK 1, SEC 21 
ig38 021210 O00405 BR 20S 
4300 O2:212 005337 001164 198: DEC STMP2 GET SECTOR AT WRL 
4301 G2i2ié 013765 OO1164 000006 MOV STMPe, RKDA(RS) 
| 4303 021224 O16S37 000006 ODLIGE 208: MOV —_RKDACRS),STHP3 FOR ERROR PRINTOUT 
4305 
| 4306 
| 4307 021232 004737 O24714 JSR PC, SUBCLR 
| 1208 C2el236 104024 ERROR 24 sCERR AFTER SCLR 
| 4310 021240 005737 001164 TST STMP2 ;SEE IF TRK/SECTOR O 
| 431 1 Ooi BEQ 77§ *REPEAT,NO NEW DATA XFER TOOK PLACE 
| 431 1 001164 001023 CMP STMP2, #1023 *SEE IF TRK 2,SECTOR 19 
| 4313 021254 001410 a BEQ 7s ane *REPEAT,NO OLD DATA TO CHECK AGAINST 
| 4315 b515en asta samp ote 703’ ;BR_IF WRITING 1°S WHEN WLE OCCURRED 
| 4316 Oele66 012765 001522 oD0004 MOV #DATAL, RKBA(RS) TRITING 0 ScHLE SECTOR SHOULD HAVE ALL 1°S 
#317 021274 00405 BR 71$ 
| 021276 000137 020650 778: JMP 68 . 
4321 021302 012765 001516 O00004 70S: ## MoV #DATAO,RKBACRS) ;WRITING 1°S:WLE SECTOR SHOULD HAVE ALL 0’S 
021310 052765 000020 o00010 71S: IS #BAI, RKCS2(RS ' 
021316 Ole765 177400 o00002 V . RK 
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4 l 1376 166 0000 MOV TMP3,RKDA(RS) ;REFRESH RKDA 
35s 51353 8 3288 eens cape MOV SRKBALRS) WO2 EXPECTED WORD FOR TRUERR TYPEOUT 
4 1 1 MOV #<WRTCHK> ,RKCS1.(RS) WRITE CHECK CMD 
356 pete ee rat 34 ppeoeg MOV ane TEMP] ©; SETUP rincout 
4329 021354 ISR PC, FRDY FIND RDY 
4330 021360 Ibis ERROR 15 "NO RDY AFTER WRITE CHECK CMD 
a33) ise 37 sani oos400 art aceRR, HES! sGET FRESH STATUS 
a Biase Beiai4 BO 
4335 021376 yoooo oos402 BIT WCE, HCS2 
4 Ge 1404 001 BEQ 785 
4 1 01 p00024 001476 MOV RKDB(RS),WD1 § ;GET ACTUAL NISCOMPARED WORD FOR TYPEOUT 
4338 021414 004737 O2be2l2 ISR PC, TRUERR :CHECK AGAINST BSE INF 
4339 021420 104134 ERROR 134 WRITE CHECK ERROR 
i340 O2i42e o00401 BR 795 
ase 021424 104022 783: ERROR 22 CERR AFTER WRITE CHECK CMD 
aa 021426 79S: 
4346 021426 o000c40 NOP 
ia 021430 000240 NOP 
4349 021432 023727 001164 000400 CMP STMP2, #400 ;SEE IF WRL AT TRK 1, SECTOR O 
4350 O21440 001004 BNE 725 *BR IF NO 
re elie 12768 oo0025 000006 HOV 421. ,RKDA(RS) ELSE SECTOR BEFORE WRL IS TRK O, SEC 21 
4353 021452 nee 001164 OO01000 72$: CMP STMP2, #1000 ;SEE_IF WRL AT TRK 2,SECTOR O 
4354 021460 001004 BNE 735 *BR IF NO 
4355 Oel4ée O1e765 O0042S 000006 MOV #425,RKDA(RS) ELSE SECTOR BEFORE WRL IS TRK 1, SEC 21 
4 021470 O00405 BR 74§ 
4358 021472 005337 001164 73$: DEC STMPe GET SECTOR BEFORE WRL 
4359 021476 O1 001164 o00006 MOV STMP2, RKDA(RS) 
4360 Oel 01 000006 OO1166 74S: MOV RKDA(RS),STMP3 ;FOR ERROR PRINTOUT 
4361 151 000001 001162 BIT #8170, STHP1 
4362 Oel 001004 BNE ;BR_IF WRITING 1°S WHEN WLE OCCURRED 
| 4363 Oe! 001516 o00004 HOV sDATAD, /RKBACRS) :WRITING 0S: Le SECTOR -1 SHOULD HAVE ALL 0’S 
4365 
4366 021 012765 001 000004 758: MOV #DATAL RKBACRS) sWRITING 1°S:WLE SECTOR -1 SHOULD HAVE ALL 1’S 
| 4367 021540 052765 Bo0086 001g 768: BIS BA RKCSe 
| 4368 Oel546 b1e765 77400 MOV #-256. RKC 
4369 021554 Ol 50004 001500 MOV SRRBRiRe) a oe ;EXPECTED WORD FOR TRUERR TYPEOUT 
| 4371 rata 127 900031 gn0099 Hoy tong ite sar io HBaTe CHECK CMD 
i « 1 ee poaase JSR ¥ *FIND RDY 
| 4374 Q21602 10401 ERROR *NO_RDY AFTER WRITE CHECK CMD 
| 4375 021604 0047 d2ubse JSR Be grat *GET FRESH STATUS 
| 4 1610 1 005400 BIT act ,HCS1 
pe 1616 001414 BEQ 
: 4379 021620 032737 O40000 ocos4o2 BIT #WCE,HCS2 
| 
| 
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a Ass ae ces a eT WRITE LOCK TEST 


4380 921626 001407 BEQ 80$ 
4381 i O16837 ggoges 001476 HOV RKDB( RS ) HO. sGET T ACTUAL MISCOMPARED WORD FOR TYPEOUT 
4385 rates rth ERROR 135 STR E CHECK ERROR 

4384 O21E44 O0040i BR 815 

4 02164 104022 @0$: ERROR 22 sCERR AFTER WRITE CHECK CMD 

4. : 

4388 021650 815 

4390 

i393 021650 128: 
ses ‘Test 20. SAC LOW DETECTION PART2 
435 iH 
oe SUS TR NEUE, PT ath nie etary TAPE ean CEES 
4398 te FHERE Is ROX 4 ig 8 BETWEEN AC LOW Tieny Betiac ane Ni NED SR eee TING 
4399 33 WHEN THe INTERFACE SHUTS DOWN. 
4401 021650 Nac ape eReecenmm emcee 
quo 021652 ieee 000001 001170 MOV nt sings : ITERATION 
w408 021660 012706 001100 MOV #StAack t AESTORE STK PTR 
4406 021664 004737 024714 JSR gue 
paid 021670 104024 ERROR 24 sCERR AFTER SCLR 

1872 104401 ,MSG26 

ris GBIEE BBL ERE ROE REG SEAA RET Pavass rest 
44] 1 JSR PC, CCSP i Rett cb REntoo on 
w413 1 enka BS 3336 JMP 128 $RETURN HERE FOR Gontac 
4415 021712 005737 001534 TST BSERR ?TEST FOR ALIGN CBRTSTOGE 
HIB 021716 001401 BEQ 18 “BR IF NOT ALIGN CART. 
4418 
4419 021722 004737 O24eS2 1S: JSR PC, GSTAT 

20 021726 004000 o0s426 BIT. #0. WRL,HMRe sSEE_IF WRITE LOCK 
we 021734 001417 BEQ 11S BR IF NO 
wes 217% 104401 ou077e Type ,MSGS3 ; DISABLE WRITE LOCK : 
“4 tele bows? Deribe 3 TR AC GETSP iGET space 
4427 021752 004737 Oe4Es2 JSR PC, GSTAT 

wee 021756 Garobs O04000 005426 BIT 40; WRL, HMR iSEE_ IF TILL WRITE LOCK 

3 FSi Oatt ERROR 110° * WRITE 1EO6k NOT DISABLED 

443) 021770 .000137 023226 IMP 12$ EXIT TE 

4433 021774 005037 001362 148: CLR TOCYL ; SETUP 

4434 022000 005037 001376 CLR CALADD *FOR 

4435 22004 005037 001504 CLR HEAD "FILL HEADER TABLE 








DoREYE.Che  OS-NOVe?e Tecan Fag" “Ac TR vefECT EN’ "a cay Fic 


pois 001160 158: MOV TS000, STMPO 
0011 CLR STMP1" ;B8ITO=0;WRITE O'S; BITO=1:WRITE 1°S 


wi36 022010 005037 001510 CLR FORMAT ; ROUTINE 
a8 022014 004737 025702 13$: JSR PC, FHDTAB ;BUILD STD 22 SECTOR HEADER TABLE 
O22020 012765 001542 oOD0004 MOV #HDTAB, RKBA(RS) 
4441 Oe2026 O12765 177676 O00002 MOV #-66. , RKWC(RS) 
wie 900337 001504 SWAB 
yuy 2040 O13765 001504 00006 MOV HEAD, RKDA(RS)  ;HEAD ADOR 
ww 001504 SWAB HEAD 
WM 012765 0002? 990009 Mov #<WRHEAD> » ,BKCSI(RE) jHRITE HEADER CMD 
og feos Bhi Bl cere FEF 
4449 104200 ERROR 200 al pA a BFTER WRITE HEADER CMD 
quey ath 53 sania 005400 art cee ,HCS1 
4452 022106 O01401 BEQ 64§ 
4453 022110 104201 ERROR 201 sCERR AFTER WRITE HEADER CMD 
44us4 Oe2ll2 64S: 
Wee 022112 005237 001504 INC HEAD 
4457 O22116 023727 001504 000003 CMP HEAD, 83 ;SEE IF ALL HEADS DONE 
wuee 022124 001333 BNE 13$ *BR IF NO 
4460 022126 004737 024714 ISR PC, SUBCLR 
4461 Oe2l32 104024 ERROR 24 sCERR AFTER SCLR 
wes 134 01 001 Mov #DATA1, SKBA(RS) ;RETURN HERE FOR SPACE 
44E4 pesta3 aie nieid nenats BIS SBAL RKCSECRED. *WRITE INITIAL BACKGROUND OF 1°S 
4465 O221S0 012765 137000 MOV $66! #256, RRUC(RS) sTRACK 0,1,2 ALL SECTORS 
wae? 022156 012765 000023 opo000 MOV #<WROATA>, RKCSI(RS) jMRITE DATA CMD 
4468 022164 013737 001434 oos442 MOV TSO000, TEMP1  ;SETUP TINEOU 
4469 022172 004737 O24226 JSR PC, FRDY *FIND 
Ct HEE couse GP Muy ite Pee tts OH 
44 ets 1 005400 BIT ERR. 1 
ay 2 001401 BEQ S$ 
pale Deze14 104012 ERROR 12 sCERR AFTER WRITE DATA CMD 
“4 022216 65S: 
| 4478 022216 004737 024714 2s JSR PC, SUBCLR 
pate Oe2e22 | ERROR 24 sCERR AFTER SCLR 
4481 022224 104401 T ,MSG49 ;TURN OFF AC 
| wee 022230 104401 041436 T »M5GS7 *VERIFY BATTERY RETRACT FUNCTIONAL 
| 4484 922234 001534 TST BSERR SEE IF ALIGN CART USED 
| age Gseeue 104 1 PE SG37 IPRESS SPACE MHEN DONE 
| uae? fe55u6 Apaza> at JSR PC, GETSP : Space” 
4488 QeeeSe GOCSO4 8$ *SKIP ALL WRITING 
4490 37 
Se gee 
| 
| 
{ 
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022266 
Oeee72 


004737 
104024 


024714 


00000} 
001516 


001 


G03008 


100000 
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005400 


005430 


Bava 27( 1006) 
T20 


4§: 


78: 


AC LOW 
JSR 
ERROR 
BIT 
BNE 
MOV 
BR 
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DETECTION PART 2 


PC, SUBCLR 
24 ;CERR AFTER SCLR 


perro, Stra 
5 ;6R_IF rae 1’S 
es atta ;SETUP ALL O'S 


#DATA1,RKBACRS) ;SETUP ALL 1’S 


#BAI, RKCS2(RS) 

#-63. #256. sRKWC(RS) TRACK O 63 SECTORS 
RKDACRS) BEGIN AT TRK and aE o188 B 
BRDATA, RKCSI(RSS 
750000 TEMP 

C, FROY sFIND CONTR RDY 

:CONTR NOT RDY 

PC, GSTAT 
#CERR,HCS1 
3$ 
ro 
146 sCERR NOT SET BY TIMEOUT 
,MSGSO : TURN K ON 

MSG69 *DEPRESS SPACE AFTER 'READY’ LIGHT ON 
Pc. GETSP GET SPACE 
12$ *EXIT TEST 
STMP1 
45 GO WRITE OPPOSITE DATA 
#D.ACLO, HMR3 
147 sAC LOW NOT SET 
#<D.SPLS!D.ACLO!D.FLT> , SBMR3 
PC, CKMR3 
203 ;MSG BO ERROR AFTER AC SW OFF 
HDA, STMP2 ;SAVE RKDA 
HDA, STMPS SAVE FOR TYPEOUT 
,MSGSO TURN AC BACK ON 
*MSG69 *DEPRESS SPACE AFTER ’READY’ LIGHT ON 
PC, GETSP GET SPACE 
PC, SUBCLR 
24 sCERR AFTER SCLR 
8D. ACLO, HR 
i sACLO NOT RESET AFTER POWER UP 


#CCLR,RKCS1(RS) 
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Te0 AC LOW DETECTION PART 2 


MOV PBC ARKESLCRS) ;PACK CMD 


R PC ma RDY sFIND CONTR RDY 
ERROR 116 CONTR NOT RDY 


BIT #0, WV, HR 
seg, ERROR 8? ;VOLUME VALID NOT SET AFTER PACK CMD 
"TST —- BSERR ;SEE_IF ALIGN CART USED 
BEQ «LYS : 
IMP (128 tELSE EXIT TEST 
JSR _—- PC, SUBCLR 
ERROR 24 ;CERR AFTER SCLR 


TST sine ;SEE_IF TRK/ raion 0 
Q *REPEAT,NO NEW DATA XFER TOOK PLACE 

CMP STMP2, #1023 :SEE IF TRK 2, SECTOR | 

BE 745 :REPEAT, NO orb B DATA TO CHECK AGAINST 


BI o61 10, STHPs 


ROV EDSTAI -AKGACRS) ERITING™ One SECTOR SHOULD HAVE. 


SECTOR SHOULD HAVE ALL 1’S 


74S: JMP 2s 
67$: MOV #DATAO,RKBA(RS) ;WRITING 1’S:WLE SECTOR SHOULD HAVE ALL 0’S 
68$: BIS #BAI,RKCS2(RS) ° 

MOV #-256 ccRS) 


;REFRESH RKDA 
;EXPECTED WORD FOR TRUERR TYPEOUT 
MOV #<WRTCHK> ,RKCS1(RS) ;WRITE CHECK CMD 





MOV TSO000, TEMP1 ; SETUP TiMEGuT 

JSR PC, FRDY *FIND RDY 

ERROR 15’ *NO_RDY AFTER WRITE CHECK CMD 

ISR PC, GSTAT GET FRESH STATUS 

BIT #CERR,HCS1 

765 

BIT WCE ,HCS2 

BEQ 73s 

MOV B(RS),WD1  ;GET ACTUAL MISCOMPARED WORD FOR TYPEOUT - 

ISR PC, TRUERR "CHECK AGAINST BSE INFO d. 

ERROR 436 “WRITE CHECK ERROR , 
75S: ;CERR AFTER WRITE CHECK CMD 
768: 


—— 


re enn ee ee ee: 
' 


UN 


Lond 


ssanhe te 


WONMULL WluH-O 
foro = foro 


OsS0i6 


023030 


ESTETS ESSE. 


tattle 
or 


SSSSSes SEs 
& 2FRSLES NY 


5 


SPSS SP AAAAAMAS ACR ACHES ASS 
ue 


é 
Te 


we 
o 


Rens 


fe 
Ae 


M8 O8- 


001164 
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000400 
000006 
001000 
000006 


PL AES ad 9 PO © 
4 STMP2, #400 ; SEE Fin AT TRK 1, SECTOR O 

MOV 55 .»RKDACRS) ELSE SECTOR BEFORE WRL IS TRK 0, SEC 21 

69S: ae STMP2, #1000 Bee Pie AT TRK 2,SECTOR 0 

mY — ie steror BEFORE WRL IS TRK 1, SEC 21 


70$: DEC sTnpe GET SECTOR BEFORE WRL 
MOV TMP2. RKDA(RS) 
71$: MOV DA(RS),S$TMP3 ;FOR ERROR PRINTOUT 
BIT #8170, STMPL 
7 sBR IF WRITING 1°S WHEN WLE OCCURRED 


72S: MOV #DATAl reeracy” ;WRITING 1°S:WLE SECTOR -1 SHOULD HAVE ALL 1’S 


73$: BIS #BAI. RKCS2(RS 
MOV #-256. , RKWC(RS) 
MOV DRKBACRS),WO2  ;EXPECTED WORD FOR TRUERR TYPEOUT 


MOV #<WRTCHK> .RKCS1(RS) “WRITE CHECK CMD 
MOV TS0000, TEMPI j DETUP TiNEOUT 


JSR PC, FROY : 
ERROR 15 *NO ROY AFTER WRITE CHECK CMD 
ISR PC, GSTAT *GET FRESH STATUS 
BIT #CERR,HCS1 
BEQ 78S 
BIT #WCE,HCS2 
MOV RKDB(RS),WOl § ;GET ACTUAL MISCOMPARED WORD FOR TYPEOUT 
JSR PC, TRUERR :CHECK AGAINST BSE INFO 
ERROR 137 WRITE CHECK ERROR 
BR 78S 
77$: ERROR 22 ;CERR AFTER WRITE CHECK CMD 
783: 
123: 
ENDRV: 


gs LEK EERKEA LE RE KEE LEE RSH E SAKES RRA KALE LER ALAM KX ESR E HE RAE EXRESES 
j ATEST 21 END OF PROGRAM 

y 

* THIS IS NOT A TEST BUT A LINKAGE TO PERFORM ALL THE 
7" ABOVE Fests FOR Fle NEXT LENE PRESENT 

2% THE NEXT TEST Is ENTERED ONLY AFTER ALL DRIVES PRESENT 
* HAVE BEEN TESTED. 

ii DO NOT LOOP ON THIS ‘TEST’. 

: 


MOV ga tacit WRITING O’S:WLE SECTOR -1 SHOULD HAVE ALL 0’S 





a er 






























pe oe ee 
‘ 


4661 Oe3e26 000004 


0sse36 


SUE PUG RUOTSTEC 2 


000001 001170 
001100 


12737 

12706 
3? 001214 
923737 O0S464 

001402 
000137 013004 


000001 
001100 


001212 
023600 
005464 


042047 
023600 


1 
027412 
023600 
041504 
037126 
0e74Se 
024714 





001214 


001170 


000001 


RAM 
Loy ee praneey ayer anata aren 

MOV #1 Sines D0 1 ITERATION 

MOV aSTACK ‘RESTORE STK PTR 

INC SDEVCT sINCR COUNT FOR # OF DRIVES THAT ARE CHECKED 

CMP DRIVS,SDEVCT  ;ARE ALL DRIVES PRESENT TESTED? 

BEQ TST22 GO TO NEXT TEST IF 

IMP NUDRV :IF NOT, GO BACK & TEST NEXT DRIVE PRESENT. 


ATE 


. . . . 
peril rari tctdncate haat semicd 
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pret a2 MULTIPLE DRIVE DETECTION TEGT 


MULTIPLE DRIVE DETECTION TEST 


THIS TEST IS PERFORMED ONLY ONCE AT THE END OF PASS 1 
AND IS BYPASSED IF ONLY ONE DRIVE IS PRESENT. 


THE MULTIPLE DRIVE DETECTION LOGIC IS TESTED BY THE FOLLOWING METHOD: 


HEADS MUST BE LOADED (SECTOR PULSES REQ’D) 


8: THE OPERATOR IS es ge a INSERT THE SAME UNIT SELECT 


PLUG NUMBER (1 PAIR AT A 
TO BE TESTE 


ME) ON ANY 2 DRIVES 


S 
C. ie OPERATOR THEN DEPRESSES THE SPACE BAR TO CONTINUE THE TEST 


A CONTROL-C TO EXIT THE TEST 


THE PROGRAM VERIFIES THAT tog DRIVE SELECT 8 DRIVE UNSAFE 


BOTH SET & THAT THE DRIVE 


THE OPERATOR IS ASKED TO VERIFY THAT HEADS UNLOAD FROM. BOTH DRIVES 
ct a Perper 


t$T22 





MOV #1, STIMES ;:D0 1 ITERATION 
MOV aStack, SP tApCTORE STACK PTR 


TST SPASS 
BEQ ;00 TEST ONLY IN 1ST PASS 


IMP 11S ‘ELSE EXIT TEST 
1S: CMP DRIVS, #1 
sBR_IF THAN 1 DRIVE PRESENT 
MSG62 BYPASS TEST, ONLY 1 ORIVE PRESENT 
IMP his ELSE EXIT TEST 
: T MSG2 T DRV DETECTION TEST 
= T +Neges $s CONT =f 0 EXIT OR SPACE TO CONTINUE 
JSR Pc. CCSP NPT CONTROL-C OR SPACE 
IMP 118 RETURN OER OOK CONT-C 
TYPE ,MSGS8 1000 HEADS ON ALL DRIVES 


MSG37 s PRESS SPACE WHEN SONE 
JSR PC, GETSP :GET SPACE 


3$: JSR PC, SUBCLR 


e4 ;CERR AFTER SCLR 





na CO CCC CC LCCC LC OC CC CO 
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O3-NOV-76 15:31 T22 MULTIPLE DRIVE DETECTION TEST 
" W716 023372 104401 O41566 TYPE  ,MSGS9 s INSERT SAME UNIT SEL PLUG # IN 2 DRIVES 
4717 023376 104401 037126 TYPE MSG37 ‘DEPRESS SPACE BAR WHEN DONE 
421 023402 004737 027452 JSR PC, GETSP *GET SPACE 
4 : 023406 ocS5000 CLR RO sDRIVE # COUNTER 
47 10 01 000000 6S: MOV #cc R, RKC (RS) 
Mee Gee biGoes a00010 00 nov fo Rats RV ssl I SELECT ORIVE CMD TO GET STATUS 
we 
47 hee 1788 iathe ppeag MOV asf oRNe 
4726 023436 004737 O2e4226 JSR Pe-ERD wi sFIND CONTR RDY 
ier O23442 104117 ERROR ies NO CONTR RDY 
4729 023444 012737 011610 ons44e MOV #S000. , TEMP! 
4730 3452 004737 Oe4b20 JSR PC, DLY ;REQ 2 MS DELAY BEFORE MDS DETECTED 
4732 023456 012765 100000 o00000 MOV #CCLR, RKCS1(RS) 
4733 023464 010065 000010 MOV RO, RKES2(RS) 
4734 023470 012765 900001 oj0000 MOV #SELDRV, RKCS1(RS) 
4735 7% 137 1422 oos442 MOV Ti0 Tet 
4736 226 JSR F 
REL 023510 104117 ERROR } NO CONTR RDY 
4 02351 001000 oos4o2 IT #MDS, HCS2 ;SEE F THAT DRIVE HAS MDS 
aug oese45 rapt 3 NE 75° 1P vee 
4741 Qe3Se2 005200 INC RO El cp 1H SONOTHER DRIVE 
4742 023524 020027 O00010 CMP RO, #8. : SEE IF ALL DRIVES TESTED 
4743 023530 001327 BNE 6$ BR I 
4744 O23532 104176 ERROR 176 CaN FIND MDS 
in 000407 BR 10$ Y AGAIN 
4747 104401 042001 7S: TYPE MSG61 mat DRIVES FOUND ON DRIVE # 
aee 023542 O10046 MOV RO, -(SP) 3s SAVE RO FOR TYPEOUT 
ure, poseug TONED Tey $360 TYPE OCTAL 
4 hag oh "BYTE O $3 Ress CEAOTN NG ZEROS 
4753 104401 35 TYPE ,MSG68 sERIEY BOTH DRIVES UNLOADED 
4754 oy 1O44Ot 041671 10$: TYPE ‘MSG60 RT CORRECT UNIT SEL PLUG 8 LOAD HEADS 
4755 023560 104401 042143 TYPE MSG63 i DEPRESS CONT-C OR SPACE BAR WHEN DONE 
4756 023564 004737 12 JSR Pc. CCSP ; INP T CONT- a 
4757 023570 000137 023600 IMP 11$ *RET URN HERE FOR CONTROL-C 
4758 023574 000137 023364 JMP 35 *RETURN HERE FOR SPACE 
4760 024714 11$: JSR PC, SUBCLR 
4761 pe3e00 rata ERROR 24 ;CERR AFTER SCLR 


g 
8 


Be 


g 
aus 


5 


8 
5 


Oo 
—— 
bo 
Pos 
mS 


a8 
eaey 
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001212 


000 


2 O4e116 
1 020123 


END oF BASS 


-SBTTL END OF PASS ROUTINE 


55 ERIS REE EEE REE REEL AREER REEL EAE EE EE FREE HAE REESE 

PASS NUMBER ($PASS) 

ASS #XX 
ITOR GO 


SEOP: 


D 
SEOPCT: . 


SENDCT: .WORD 


$GET42: 


SENDAD: 


SDOAGN: 


SRTNAD: . 


SENULL: 


: .BYT 
SENOMG: . 





SP 
#100000, SPASS 
(PC)+ 


SDOAGN 
pratt ees 


SENDMG 
$PASS, -(SP) 
PC, (RO) 


a(PC)+ 
STS 


-1,-1,0 
<15><12>/END PAS 






-NOV-7) 734 PA 
TIhe 6 15:3 GE 90 





;;ZERO THE TEST NUMBER 


3;ZERO THE NUMBER OF ITERATIONS 


*: INCREMENT THE PASS NUMBER 
ty ALLOW A NEG. NUMBER 
ss 


3; YES 
;;RESTORE COUNTER 


;;1YPE “END PASS #” 
3;9AVE SPASS FOR TYPEO 


UT 
;3G0 TYPE--DECIMAL ASCII WITH SIGN 
3 HARACT 


;; 1 YPE A NULL CHARACTER 
RE 


tT ACTLL 
; ;RETURN 
»:NULL CHARACTER STRING 


bi y7 






en ee ee ee ee ee 





4855 4100 001001 BNE 4§ ;IF'NOT, SOMETHING WRONG. 
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4800 .SBTTL SUBROUTINES 
Be ;SUBROUTINE TO CLEAR ALL FLAGS FROM DDUMP THRU DOTIM 
4804 ; 
4805 1 o0s4s4 CLRFLG: MOV #DDUMP ARO 
wom eves pec, 1775" my Real 
4 2 0s2 or ae fr ef 
W808 S53555 BBTS BNE «18 
4810 023746 000207 RTS pe 
au ) 
481 :TYPE PROGRAM ID IF FTITLE=0 
uae 
4816 023750 005737 001354 TITLE: TST FTITLE 
4817 023754 001004 BNE 1$ 
4818 023756 005237 001354 INC FTITLE 
4819 Oe376b2 104401 O340b2 TYPE MSG1 ;PROGRAM ID 
4820 023766 000207 1$: RTS Pc 
4821 
482 cae: ROUTINE TO INPUT DRIVE NOS. TYPED IN & SET 
ised gDRIVS, DRIVO-DRIV7 REGISTERS APPROPRIATELY 
4826 
4827 023770 104411 arts ROLIN 
4828 923772 012600 MOV (SP)+,RO GET STARTING ADDR OF ASCII STRING 
4829 023774 012701 177770 MOV #-8. *SET UP 
4830 4000 11200e 1S: MOVB  (RO)+,Re ;GET ASCII CHAR 
4831 O02 O42702 177400 BIC #177400, Re *MASK HI BYTE 
4g De4005 12703 OOS4E6 MOV #ORIVO,R3 ;DRIVE FLAG ADDR 
4g33 Ol2 012704 o00060 MOV #60,R4 
4839S 024016 o20402 25: CMP RY, R2 WAS TYPED CHAR 0 THRU 7? 
HB bevde 00141 BEQ 3$ "BRANCH IF YES 
0057; TST (R3)+ NO, INCREMENT DR FLAG ADDR 
4838 024024 INC 
0e4026 Oe0427 000070 CMP RY, #70 
4840 Oe4032 001371 é BNE 2 :S/B 0-7 OR TERMINATOR 
024 005 TST R2 
ygu2 001022 BNE 4g 
4843 beHo4g 020127 177770 CMP R1, #-8. 
| 4yB44 001426 BEQ 65 ;DEFAULT ALL DRIVES 
4B4¥S Oe404_ 005037 005514 7S: CLR SIZFLG *BYPASS TEST 1 (SIZING) 
| Heue O2e40S2 000207 RTS PC FOUND TERMINATOR, EXIT 
4yB48 O240S4 005213 38: INC dR3 ;SET UP FLAG FOR THE DRIVE 
4B49 024056 005237 OOS464 INC DRIVS INCREMENT TOTAL # DRIVES TO BE TESTED 
4850 Oe40b2 112002 MOVE (RO)+,R2 GET NEXT ASCII CHAR. 
4851 bevOe4 042702 177400 BIC #177400, Re 
4B52 070 O22702e oo0054 CMP #54, Re Is IT A COMMA? 
4853 024074 001407 BEQ cS YES, GO TO NEXT WORD. 
yesy O54 005702 TST R2 NO, 1S IT A TERMINATOR? 
| 





“+ 





oe 
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“NOV-76 15:3 SUBRCUT 
4358 o24102 000761 By 7$ sFOUND TERMINATOR, EXIT 
0241 04401 042163 4$: TYPE EM1 sONLY O-7 ALLOWED. 
024110 157 010872 IMP PRGSRT :START ALL OVER 
pevii4 gos201 SS: INC Ri i S/B 28 NO ORE THAN 8 DIFF 
B5ui38 cenaa BR 4 IF NORE, HAVE ERROR. 
o24122 905237 oossi4 &$: INC SIZFLG :D0 TEST 1 (SIZING) 
024126 000207 RTS PC EXIT, 
FROUTINE TO INPUT RKBAS OR DEFAULT. 
0241 O44! GBA:  RDOCT 
ie HOV {SP)+,RO GET LOW ORDER FROM STACK 
1% 001 BEO 1$ sBRANCH IF DEFAULT. 
024140 Ol 001260 MOV RO, SBASE 
pois ocde0? RTS C 
1% Qle73s7 177440 001260 15: MOV 817744C,$BASE  ;DEFAULT VALUE 
O24154 phasao RTS pC 


ROUTINE TO INPUT RKVEC OR DEFAULT 


I 10441 GINT: RDOCT 
160 01 MOV (SP)+,R0 ;GET LOW ORDER FROM STACK 
1 ibe TST 
1 1 4 ;BRANCH IF DEFAULT 
186 10037 001330 RO, RKVEC 
Ce41 737 Oedel0 2s: Ho FC, ,» SETINT 
Beus00 0} 000210 601330 1S: MOV #210, RKVEC ;DEFAULT VALUE 
024206 1 BR es 


SROUTINE TO SETUP INTERRUPT VECTOR & PRIORITY 


. 
, 


024210 ol 001 SETINT: MOV RKVEC,RO 

Ge4214 O01 16 MOV SINTER, (RO)+ — ; INTER ADDR TO RKVEC 
024, 013710 001332 MOV RKPRI, (RO) *PRS TO RKVEC+2 
d24224 000207 RTS PC 


ssdstossnaseattatunsatstcncessdeestences 


ne = 2 ee ee 2 Ee eee es = green 


—— <e e  ren 








ee 
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4 ;ROUTINE TO FIND CONTROLLER READY (RDY) DURING A DELAY 
4 :ENTER WITH A COUNT IN TEMP 

4908 ;RETURN IF RDY NOT PRESENT (ERROR CONDITION) 

4 : +2 IF ROY PRESENT (SKIP OVER ERROR) 

4310 STATUS IS OBTAINED SEFORE THE RETURN FOR EITHER CASE 

49] 22 932765 000200 on0000 FRDY: SIT #RDY,RKCS1(RS) 

Wat se poss pos44e2 Be 13401 

uaic Seueus Sor391 fe ERY 

491 bevewd 737 024264 JSR PC, HOLD :STORE ALL RK61! REGS IN HOLDING REGS. 
49} RTS PC :NO RDY, EXIT 

4818 Oo4ese 16 18: ADD 82, (SP) ;SKIP OVER ERROR 

4919 Oo4et6 004737 Oe4e64 JSR PC; HOLD 

4920 O24 000207 RTS 

4921 

4e55 *STORE ALL RKb11 REGISTERS IN HOLDING REGS 


dase : 
S26 





S 1 HOLD: MOV RKCSI(RS) CSI 
4927 asa 1623 MOV BKeeS (REY Likes 
4828 024300 016537 MOV RKWC (RS) , HC 
4829 024306 016527 MOV RKBA(RS) -HBA 
Sy ee Hey my gee) 
1336 16537 (R5)’HER 
1 MOV (RS), HASOF 
| 4934 924344 016537 (RS) HOC 
| 4935 Oe4 Obes? MOV RKMR1 (RSS , HMRI 
| 4936 O24 16537 RKMRe (RS) , HNRe 
4837 ou 016537 MOV RKNR3(RS) HMRS 
| 4938 024374 016537 MOV RKECPS(RS) ,HPOS 
| 4939 Oow4oe 016537 MOV RKECPT(RS) ,HPAT 
; 4940 O24410 000207 RTS PC 
| dea 
| yQy3 *ROUTINE TO CHECK FOR CORRECT ATTN 
;  4g4d *RETURN IF ATTN NOT PRESENT (ERROR CONDITION) 
| 44s *RETURN +2 IF ATTN PRESENT (SKIP OVER ERROR) 
| io o24412 O10446 TSTATN: MOV R4, -(SP) ;SAV RY 
| 4948 024414 013704 oD1216 V SUNIT. RY 
/ 4949 De4420 136437 005370 005417 SITB = ATTN(R4) ,HASOF +1 
«4850 Ce44 01404 BEQ 1S ;BRANCH IF ATTN NOT PRESENT 
' 4951 Qo44 1 MOV (SP)+,R4 RESTOR RY 
| 4952 Deusi3e 16 oo000e2 #2, (SP) *INCR RET ADDR TO JUMP OVER ERROR. 
| 4953 pew RTS PC 
| 4954 1 1S: MOV (SP)+,R4 sRESTOR R4 
4955 Dous4e need RTS po 


——— ee ee ee aren ao amr 
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DZR6JB.CMB O3-NOV-76 15:31 SUBROUTINES 
4 ?ROUTINE TO FIND ATTN WITHIN TIMES GREATER THAN 1 SEC 
4959 ENTER WITH TIME IN SECONDS IN TEM Ne 
4969 :RETURN IF NO ATTN (ERROR CONDITION) 
496 : RE TURN +2 IF ATTN FOUND 
i3be *STATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE . 
4964 ; 
4965 Oe4444 0104 FATT1: MOV R4 ~(5P), sSAV RY 
4966 DO4446 als 7077 cosu42 3: MOV #-1.T 
4967 Oe44s4 O01 MOV SuNtT R 
4968 Oo4460 1 Bpes38 000017 1S: SITB SUNT a ocores 88) sFIND CORRECT ATTN 
4969 O24465 oie 
4870 624470 005337 oos44e2 DEC TEMP 
497 74 00137 BNE l 
bps 34 oos444 DEC TEMP2 
o 001361 BNE 
oe Ean gue Ome Ge Ree EEC HOP fons 
mete att see MOV ie, RESTOR Ri 
4977 024516 000207 RTS 





ee ae ates preestIC C_ PART 3 


4378 OBY520 Q0SDs 
4900 OS450 O12 
4981 24532 Obe71E 
49ge OeE36 000207 
4 ; 
4984 

4985 

4 . 

4 

4889 

“533 

4950 

4991 


aii 
be 


-— 


BeaaneGR 


BansenEE 
DOnNMuU£cwH-©O 


Sraishyisisaise 


001216 


70 000017 
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: CUSROUTENES 


es: CLR RKMR1(RS) 
JSR PC, GSTAT GET STATUS AFTER ATTN SEEN 
MOV (SP)+,R4 ‘RESTOR 
ADD #2, (SP) - SKIP OVER ERROR 
RTS PC 
*ROUTINE TO FIND ATTN WITHIN 1 SEC 
ENTER WITH COUNT IN TEMP 
SRETURN IF NO ATIN LERROR} 
‘RETURN +2 IF ATTN 
; STATUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE 
FATT2: MOV RY, -(SP) ;SAV RY 
2s: MOV IT,R4Y 
BITE ATTN(R) , RKASOF +1 (RS) sFIND CORRECT ATTN 
DEC TEMP 
CLR RKMRI (RS) sSELECT WORD O 
JSR PC, GSTAT :GET LATEST STATUS. 
MOV (SP)+, R4 RESTOR R4 
ER Bongos 
JSR PC Ret ee 
MOV (SP)+,R4 sRESTOR 
ADD #2, (SP) : SKIP BER ERROR 
RTS PC 


ENTER Wy A COUNT IN TEMP 
; THE DELAY IS APPROX 17 Us/TTERATION + 12 US TO EXIT 


*WHEN COUNT IS 0. BASED ON AN 
Oty: TST TEMP :5.6 US 
BEQ 1§ 2.5 US 
DEC TEMP1 8-8 US 
BR DLY :2.5 US 
1S: RTS PC :3.8 US 


:THIS ROUTINE TYPES BYPASSED DRIVES. 


By: MSG14 


RO, -(SP) 


TYPOS 
‘BYTE 
RTS = PC 


;BYPASS DRI 
LP RO FOR TYPEOUT 


% 
360 TYPE--OCTAL ASCII 
: TYPE 1 DIGIT(S) 
;;SUPPRESS LEADING ZEROS 


TYPE 
MOV 


THIS ROUTINE DOES THE SELECT DRIVE COMMAND TO GET STATUS 
s1T THEN WAITS FOR CONTROLLER READY 





ENTER WITH DRIVE# IN RO 
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;IF ROY NUT RECEIVED BY THE TIMEOUT, AN ERROR IS FLAGGED 


5032 
$033 : 
a0 oe Pee Btseee Geiss ooo0 Ot Moy gM, muceocR (RS) {CURRENT DAIVE # 
an39 664 pt Seee 000000 MOV SEL DAV. RKCS1 CRS! GET STATUS WITH SELECT DRIVE CMD 
5038 13737 OOl42e oos44e MOV T10, T ae vlad 
5039 737 Oed2e6 JSR PC, FRDY FIND RDY 
5040 704 104117 ERROR ne, PRDY NOT SET BY END OF SELECT DRIVE CMD 
5041 024706 012637 oos44e MOV (SP) +, TEMP! :RESTOR TEMP 
e042 Ge4712 000¢07 RTS PC 
504. 
Boye THIS ROUTINE DOES A SUBSYSTEM CLEAR & ualTS FOR CONTROLLER READY 
Bia) :IF RDY IS NOT RECEIVED BY THE END OF THE TIMEOUT, AN ERROR IS FLAGGED. 
>THE ROUTINE THEN GETS CURRENT STATUS 8 CHECKS FOR CONTROLLER ERROR (CERR) 

5048 ‘RETURN IF CERR SET 
5049 ‘RETURN +2 IF CERR CLEAR 
ene 024714 012765 O00040 000010 QUBCLR: NOV #SCLR,RKCS2(RS) ;SUBSYS CLEAR 
50S2 722 013737 O01422 o0s44e MOV T10, TEMP! 
50S3 024730 004737 O24226 JSR PC, FRDY sFIND RDY 

024734 1o41e0 ERROR a0 *RDY NOT SET BY END OF SCLR 

73% 013765 001216 000010 NOV SUNIT RKCS2(RS) CURRENT DRIVE # 
744 005065 o00026 CLR RKMRI ERS) jSELECT WORD 0 
024750 004737 d246S2 JSR PC, GSTAT GET STATUS 
enter Gae7a7 100000 o0s400 gir eCERR, HES! *CHECK FOR CONT ERROR 
I . Q 1 

024764 poacu? RTS PC 

024766 062716 o00002 1S: ADD #2, (SP) ;SKIP OVER ERROR 

024772 000207 RTS PC 


IREAD THE SECTOR COUNT IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN ’SECTOR’ 
RDSEC: HOV - #3, ee sWORD 3 


J 
025006 O01 005430 001416 MOV 3, SECTOR 
025014 04 177017 001416 BIC ##C<M. SECT), SECTOR 
025022 Bees? 001416 ASR SECTOR sRIGHT JUSTIFY 
025026 006237 O014i6 ASR SECTOR :SECTOR 
025032 OObe3? 001416 ASR SECTOR sINFO 


025036 ASR SECTOR 
Oeso4e bo0207 RTS PC 


*READ THE CYL DIFF/OFFSET IN RKMR2, RIGHT JUSTIFY IT & STORE IT IN 'CYLDIF” 
o25044 012765 ooc026 ROCYLD: Mov #2,RKMRI(RS)  ;WORD 2 

024652 JSR PC’ GSTAT 
26 001372 MOV HMRe, CYLDIF 


Ra 
3 
- 
ie 





a 


a 





=. Bae PUB -Rbveve eran 


UCIUN UTI Un UIUC Un Un UU UU Un Uru uu uaa 
PRATHER HRS See R SASS BSRAAAG 
SVR VRRIOR Baw NoeMn som -oSSNeNLOVeS 


meena 


SHOR 


02S064 


Oseli8 


eels 
1251 


af 


SNFRPEGRS 


042737 


DeSele 023727 


ae 


160017 


001372 


oos4e 
o00ce1 


000021 


o0c021 
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Bic atC<M.CDIF>, CYLDIF 


ee ICRI iit iF OFFSET 





ASR YLDIF 
ASR 
cre SBE 8777 CHK ps IF RET IN COMPL. FORM 
CLR cYLoIF CLR IF YES 
18: RTS 


READ THE CYL ADDR IN RKMR3, RIGHT JUSTIFY IT 8 STORE IT IN ’CYLADD’ 
RDCYLA: MOV #2,RKMRI(RS) § ;WORD 2 





JSR PC’ GSTAT 
MOV HMR3, CYLADD 
BIC eeaa CADD> , CYLADD 
ASR evapo *RIGHT JUSTIFY 
ASR CYLADD :CYL_ADDR 
ASR CYLADD : INFO 
ASR CYLADD 
RTS C 
FIND SECTOR 17 














RETURN IF NOT FOUND 
RETURN +4 IF FOUND 


Eseci7: Mov TSO000, TEMP1 ;SETUP TIMEOUT 
18: SR P *READ SECTOR 
SECTOR, $17. *TEST FOR SECTOR 17 
*BR IF NOT 17 : 


JSR SEC 
CMP PC ROSE #17. 
BEQ 3 :BR IF READ SAME TWICE 
JSR PC, RDSEC ELSE TRY 1 MORE TIME 
CMP SECTOR, #17. 
BEQ BR IF 17 

2s: DEC TEMP 1 
BNE 1§ TRY AGAIN 
RTS PC 

3S: #4, (SP) ;SKIP OVER ERROR 
ae OP 





FIND DESIRED CYL DIFF 
FOUND 
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1 37 432 
i Gee Ge mu 
$133 pests 023737 001372 
5134 OeS31 

5135 

51 12 025044 
2 6 7? 001372 
5139 OeS044 
5140 001372 
S141 

5142 

Te OeS34e oos442 
He es 

5146 

5147 025352 cooo06 
5148 025356 

HB 

ie 

5152 

HE cosmo mor onus 
5155 025364 OOS4#44 
5156 025370 00S 
5157 025374 005444 
5160 O2S404 025470 
5161 025410 001372 
ate: 025416 

1 

5164 20 70 
te 24 001372 
ie Be 7 
5168 OeS440 00137e 
217k 025450 740 
5i7e GeS454 1462 
5173 OeS460 

5174 

5175 Oes46e oo0006 
5176 OeS466 

2172 

a 

5180 025470 oos44e 


PART 3 
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SUBROUTINES 


FCYL: MOV TSOO0, TEMP1 sSETUP TIMEOUT 
1$: JSR PC, ROCYLD 
CMP CYLDIF,TEMP2 § ; TEST FOR CYL DIFF 
2s ‘BR IF NOT FOUND 


JSR PC, ROCYLD 
CMP CYLDIF, TEMP2 


BEQ 3$ :BR IF READ SAME TWICE 
JSR PC, RDCYLD ELSE TRY 1 MORE TIME 
CMP CYLDIF, TEMP2 
BEQ 3$ 
2s: DEC TEMP 1 
BNE 1§ TRY AGAIN 
RTS PC 
3S: ADD #6, (SP) ;SKIP OVER ERROR 
RTS PC 


FIND DESIRED CYL DIFF WHILE GOING THRU LOOP 
IRETURN IF NOT FO 
PRETURN#S IF NOT FOUND 


ECYLOP: CLR —_LPCNT 
ASL 


TEMP2 
ASL TEMPS 
TEMP 
ASL TEMP2 
1S: ISR PC, QKCYLD GET CYL DIFF 
CMP CYLDIF, TEMP2 
BNE 2g :BR IF NOT FFOUND 
JSR PC, QKCYLD 
CMP CYLDIF, TEMP2 
BEQ 3$ 


;BR séP READ SAME TWICE 
JSR PC, QKCYLD ;ELSE TRY 1 MORE TIME 


CMP CYLDIF, TEMP2 
3$ 


2S: ISR PC, LOOP 
TST LPENT ;SEE IF OVERFLOW 
BNE I$ BR IF NO 

3S: ADD #6, (SP) ;SKIP OVER ERROR 
RTS PC 

‘QUICK SELECT DRIVE COMMAND TO OBTAIN CYL DIFF 

QKCYLD: MOV TEMP1, -(SP) SAVE TEMP! 





UNIBUS 
DZR6JB 


@ 
~ 


QUOT TUT TUT Ua Us 
Dis bs bs bas bs be be be bo 2p 2 Bs he bo Poh Be De 


BOIFR LEO LSSBIRR PO 


BS 


Baeee 
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000026 
tert 


pod000 


001372 


001372 
4 


oos44e 
000026 


00S426 
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rfnes 


;SELECT WORD 2 
;SELECT DRIVE CMD 


; TEST FOR CONT RDY 
;BR IF THERE 


aSELDRV RKCS1(RS) 
ie y Rcd (RS) 


;NO RDY AFTER SEL DR\' CMD 


RKMR2( RS), CYLDIF 
atcen. COIF> ,CYLDIF ;GET CYL DIFF INFO (NO SHIFTING) 


;RESTORE TEMP 


ROUTINE TO FIND HEADS HOME IN RKMRe WORD 1 BEFORE SPECIFIED DELAY 
;ENTER WITH ny 3 IN SECONDS IN TEMPe 


s NO UND 
;RETURN+e IF FOUND - SKIP OVER ERROR 
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“NOV-76 | 
5207 d2sb16 005337 oos444 DEC TEMP2 
5208 001356 BNE EHOHN 
Sat posses neat oooo02 23: ae 4S, (SP) ;SKIP OVER ERROR 
eel 02532 000207 RTS PC 
a SROUTING I TO ui PND 408 LOAD HEADS IN RKMR2 WORD 1 BEFORE SMS 
pels RETURNED IF FOUND: MO SKIP OVER ERROR 
2si5 025634 012737 000372 oOs442 FLOAD: MOV #250. , TEMP] 
S218 Oesb42e 012765 000001 o00026 MOV #1,RKMRICRS)  ;WORD 1 
5219 025650 737 Oe46S2 1S: JSR PC, GSTAT 
S220 025654 032737 010000 ons426 BIT #D: LOAD, HMR2 
S221 OeS662 001004 BNE 2s 
5s ee fee he i" 
S224 025672 000207 RTS PC 
S225 025674 062716 00002 2s: ADD #2, (SP) ;SKIP OVER ERROR 
Beeb 025700 000207 RTS pC’ 
5228 PFILL HEADER TABLE WITH 66 WORDS OF VALID HEADERS 
5229 ;ENTER WITH CYL # IN ’CALADD’ 
5230 “ENTER WITH HEAD @ IN ’HEAD’ 
be31 ENTER WITH FORMAT IN ’FORMAT’ 
5233 Oe5702 o1004% buDTAB: MOV RO, (SP) :SAV RO 
5234 025704 010146 MOV R1;-(SP) ;SAV Ri 
5235 925706 012700 oo1sYe2 MOV #HOTAB, RO *HEADER WORD TABLE ADDR 
3638 be5712 905901 CLR Rl *SECTOR COUNTER 
14 Ol 001504 001506 MOV HEAD, HD1 
5238 O0b337 1506 ASL HD1 
5239 1506 ASL HD1 
5240 006337 001506 ASL HD1 
524 e573 006337 001506 ASL HD1 
006537 001506 ASL HD1 ;SETUP HEAD # FOR WORD 2 OF HEADER 
025746 O01 001510 oo1Ss12 MOV FORMAT, FMT1 
| ayy 9205754 000337 oo1S12 SWAB Ss«éFMTiL 
pee 025760 1512 ASL FMT SETUP FORMAT FOR WORD 2 OF HEADER 
5247 025764 013720 001376 1S: MOV CALADD,(RO)+ | ;HEADER WORD 1-CYL_ ADDR 
5248 025770 010110 MOV Ri, (ROS *HEADER WORD 2-SECTOR NO 
pei3 bee/7e po3710 001 BIS HDL (RO) -H NO 
10 00151 BIS =—s- FTI, ¢ -FORM 
col 026002 052710 BIS BcBITI4!BITIS> , (RO) ; -G00D ASECTOR FLAGS 
5253 13737 001376 oos4e MOV CALADD, TEMP1 
| 5254 at) 11037 005' MOV (RO), TEMP2 
| 5255 026020 043737 001376 oDs444 BIC CALAOD, TEMP2 
| 5256 Oe6026 203? pos442 BIC (RO)+, TEMP 
| §257 Oeb0ie 005442 o0s444 BIS TEMP1, TEMP2 
| pee 013720 005 MOV TEMP2, (RO) + sHEADER WORD 3-HEADER CHECK ri 
| 8260 oe6044 goseo1 INC Ri SECTOR CTR et , 
| 5261 Oe6046 020127 o00026 CMP Ri, #22, "ALL 22 SECTORS DONE? (66 WORDS) 4 
_ ‘Sebe Oeb0se 001344 1$ “BR IF NO 








7 
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Beeose O1860) NOV 
026060 900207 


THIS ROUTINE SORTS THE RHTAB TABLE FROM WHATEVER SECTOR IT BEG 
;WITH AND RE-WRITES THE INFO IN SRTTAB TABLE TO BEGIN WITH SECT 


0046 dort: MOV —«RO, -(SP) SSAVE RO 
HOV RL, (SP) SSAVE RI 


J PC, ROSEC 
001416 ADD #1,SECTOR 
JS PC, MULTE ;MULT SECTOR BY 6 


8132. ,RO 
SECTOR, RO sRO-SECTOR TO RO = INDEX 


M RO, SECTOR 
001416 ADD WRATAB,SECTOR  ;SAVE INDEX 


ADD #RHTAB, RO s INDEX TO BOT HALF OF RHTAB 
152 MOV #SRTTAB, RL ‘INDEX TO TOP HALF OF SRTTAB 


Setnee 


INS 
OR O 


i 
NS 


0} 
026064 010 


Br8 
Sey 
382 


BR PRB a : 
: 


SHEER EREA BAM 
Be BSS 

B88 sss 

& & 
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Sess 
cp GEM BRE) one 
Bseius b5r354 
5289 
5290 peri icf 901746 
esse nasty a26097 001416 
5233 026160 3 
eSge 162 01260 
£296 Nate bt Seon 
5297 O26166 000207 
5298 
5299 
5300 
5301 
S302 026170 006337 O01416 
5303 026174 13746 OO14I6 
esvd 6063 O16 
od 37 OO14i6 
S306 Oeb2 0002 
5307 
5310 
pail 
Bais 
5314 
2315 “ 
Bat5 BSeS1G BISTIE oor se0 
2318 026220 013746 001162 
S320 026224 013737 OOS410 001160 
5321 Oe6e32 013737 O0S410 001162 
2356 026240 042737 177740 001160 
S324 Oe62e4% 042737 174 001162 
2ace 026254 000337 001162 
S327 26260 005737 001160 
5328 Oe6264 001414 ai 
| of 
2353 bete7e 1 001160 001416 
5331 13737 001162 001504 
S332 026306 013737 005420 001364 
2233 026314 O00440 
5335 026316 005737 001162 
5336 001414 
a fees tae BBL 
13 1i62 o01S504 
5339 026336 012737 001416 
S340 026344 013737 005420 001364 
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SUBROUTINES 


1$: MOV (RO)+, (R1)+ :PUT BOTTOM OF RHTAB TO TOP OF SRTTAB 
MP RQ, , #RATAB+132. 


MOV #RHTAB, RO :PUT TOP OF RHTAB TO BOT OF SRTTAB 
2$: MOV (RO)+. (R1)+ 


BNE 2S 
Mov (SP), RI ;RESTOR Ri 
mov  (SP)#;RO SRESTOR RO 
RTS PC 


IMULT BY 6 ENTER WITH DESIRED # IN 'SECTOR’ 


AULT6: ASL SECTOR 32 X SECTOR 
MOV SECTOR, - -(SP) 
ASL SECTOR 34 X SECTOR 
ROD (SP)+, »SECTOR  3(4 X S)4#(2 XS) = & X SECTOR 


THIS ROUTINE IS ENTERED IF THERE ie A READ HEADER MISMATCH. 
TY COMPARES THE CYLINDER, SECTOR AND HEAD NUMBERS OF WHERE THE 
REROING AGAINST THE BSE INFO 


: ae ne vide 
: TOAN F NO CO ERROR’ CONDITION 
*RETURN+2 IF COMPARE FOUND: SKIP OVER ERROR 
+RUERR: MOV AVE RY 
: ey Stapg -(SP) eG VE 
MOV STMP1,-(SP) : SAVE 


MOV tA, greD ;READ TRK SECTOR INFO 
OV HDA, STMP1 


M 
BIC #1C<37>,STMPO ;TMPO HAS SECTOR INFO 
BIC tcc S400), STMP1 

STM ;TMP1 HAS HEAD INFO 


Ist STHPO ;SEE IF SECTOR O 
C TMP T ACTUAL WLE SECTOR 
By $THPD, SECTOR ORE SECTOR 
MOV STMP1; HEAD 3! ORE HEAD 
MOV Hoc, CCYL STORE CYLINDER 
BR 9$ 
6S: TST STHPl SEE IF HEAD 0 


: 
step ‘GET ACTUAL WLE HEAD 
MOV TMP , HEAD 
MOV #21. , SECTOR 
MOV HOC, CYL 
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Saul seed 000421 BR 9S 
43 005737 o0s420 7$: TST HDC ;SEE IF CYL O 

Paya Osesed | ObT4i4 Bea tO 
026262 005337 o0s420 DEC HOC :GET ACTUAL WLE CYL 
026366 013737 005420 001364 
beb374 12737 000002 O01504 MOV #2, HEAD 

402 012737 000025 OD14i6 MOV tel. , SECTOR 

026416 02 BR 






Oe6412 104206 8S: ERROR 206 ;RKDC & RKDA INDICATES WCE 
026414 000453 BR S$ OCCURRED AT CYL 411,HD 2 SECTOR 21 











026416 912704 003366 9S: MOV #BSE22+8. RY 
12437 001530 is: MOV (Rad+ WORD ;GET CYL# OFF BSE TABLE 
026426 023727 001530 177777 CMP D, b-1 :SEE IF ALL 1’S 
026434 001406 BEQ weRD EXIT IF YES" 
026436 023737 001530 001364 CMP WORD, CCYL :COMPARE CYL # 
026444 001410 8EQ 3$ ‘BR IF CYL HATCH 
026446 005724 TST (R4)+ “ADV TO NEXT CYL WORD 
026450 BR 1$ 
026452 012637 001162 2s: MOV (SP)+, STMPL ; RESTORE 
456 012637 001160 MOV (SP)+ ,$TMPO ? RESTORE 
bebibe 012604 Hoy (SP)+, RS RESTOR RY 






O26456 011437 001530 3$: MOV cy WORD ;GET HEAD & te FROM BSE TABLE 






Oeb47e O04¢737 177400 001530 BIC 177400 WORD :KEEP SECTOR® ONL 

026500 023737 031530 001416 CMP RD, SECTOR : SECTOR COMPARE? 

eat Bos7e4 fet SBR ext CYL # OFF TABLE 
beeelS Boga BR 1$ 






TSNSSaR aR RSE R PROBA RM SS tad 
s 
8 








5375 026514 012437 001530 4$: MOV (R4)+, WORD ;GET HEAD & SECTOR FROM BSE TABLE 
2376 026520 paeas7 001530 SWAB WORD’ 
026524 042737 177400 001530 BIC #177400,WORD § ;KEEP HEAD# ONLY 

5378 OebS32e 023737 001530 001504 CMP WORD, HEAD *HEAD COMPARE? 
5379 026540 001401 BEQ S$ :BR IF YES 
2380 026542 000727 BR 1$ 

82 S44 012637 001162 SS: MOV (SP)+, STMP1 ; RESTOR 

550 012637 001160 MOV (SP), sTnPO sRESTO OR 

84 5S4 Oieb04 MOV (SP RESTOR 
23e¢ 6556 16 oo0002 ADD g,(5 oat Sk p BvER ERR ON RETURN 
5386 O26562 000207 RTS 






5388 THIS ROUTINE CALIBRATES ANY PDP-11 AGAINST 2 CONSECUTIVE 16MS TICKS FROM AN L OR P CLOC 


5389 
5390 ;THE 1ST TICK CLEARS A COUNTER 'LPCNT’. THE PROGRAM THEN GOES THRU A LOOP. 





en re ns oe eee. 


a ee es ee 
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SUBROUTINES 


;EACH TIME IT GOES THRU THE LOOP,LPCNT IS INCREMENTED BY 1 


THE 2ND TICK STOPS INCREMENTING LPCNT AND THE CLOCK INTERRUPT IS TURNED OFF. 


*NOW, FOR THIS PARTICULAR PDP-11, THE TIME TO GO THRU THE ABOVE LOOP ONE IS 
16.6MS DIVIDED BY THE CONTENTS OF LPCNT. 


:AN APPROX VALUE FOR A POP11-05 MAY BE O.4MS TO GO THRU THE LOOP ONCE 


FROM THIS POINT ON, WHENEVER ACCURACIES GREATER THAN WHAT THE L CLOCK 
CAN PROVIDE ARE NECESSARY, THE EVENT TO BE TIMED IS COMPARED AGAINST 
;THE NUMBER OF TIMES THE LOOP IS PASSED THRU AND MULT. BY THE ABOVE 
;CALCULATED FIGURE 





a 
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DZR&JB.CMB  O3-NOV-76 15:31 SUBROUTINES 
a O26S64 104413 CALCLK: SAVREG 
ol ? 9001 001402 MOV #1, COUNT GO THRU CLOCK HANDLER 
5 ise Jere? GOSH NOY se} TENMPL SALE 1S FoR TIMEGUT 
ry - H 
% piesa? 026764 JSR Pc, LKON 
10 
4} 4 001406 18: TST TIMUP 
uid Geeees BoScas BNE «aos :BR IF GOT 1’ST TICK 
13 Oebbe2 005337 oos#4e DEC TEMP! 
fule Geeea0 poise 102 eee 18 5603 if clock INR PRESENTS ABORT TIMING TEST 
a notkr, 3226 JMP ENDRV ‘ABORT DRIVE 
S18 O26E40 01273? 000001 901402 2s: HOV #1, COUNT :GOT 1°ST TICK 
BSeecd atts CLR thane ;LOOP COUNTER 
size 026660 005037 901406 CLR TIMUP :CLEAR BEFORE 2°ND TICK 
026664 005737 001406 3S: TST TIMUP 
pice bebe? 001003 § sBR IF GOT 2°ND TICK 
026740 ISR PC, LOOP 
B42 026676 000772 
| Bes 026700 004737 027072 4S: JSR PC, CLKOF GOT 2°ND TICK, TURN OFF CLOCK 
at rere rat CLR RO sCLEAR FOR DIV 
71 CLR 
5433 026712 005004 CLR RY 
5434 026714 012703 o40432 MOV #16666. .R3 sLSB DIVIDEND (16666 US) 
ze Geb O01 001462 MOV LPCNT, RS *DIVISOR 
om 004 030040 JSR PCM. OPID :DO0 DIVIDE 
5437 026730 010337 001464 MOV R3,LPTIM :STORE QUOTIENT 
S438 ‘THIS EQUALS THE TIME IN USEC 
>TO GO THRU THE LOOP ONCE 
| 440 026734 104414 RESREG 
| Ean 026736 000207 RTS PC 
| 5443 
Euae WITH 50 IN RO, IT TAKES APPROX 400 US FOR AN 11/05 TO GO THRU THIS 
Site “LOOP AND INCREMENT *LPCNT’ 
| eta? THIS, 400 a0 Us 15 RePROK 2.5% OF 16MS GIVING A RESOLUTION OF 0.4MS 
BY THE 'CALCLK’ ROUTINE, LPCLK SHOULD BE APPROX 40(10)=S0(8) 
| Bid Cul en 'GReD By TO 200(10)=264(8) FOR AN 11770 
| 5452 026740 010046 Loop: Hoy RO,~(SP) SAVE RO 
eves eer, goes is: pee ORO 
| 750 00140 BEQ 2s 
752 BR 1$ 
026754 001462 2s: INC LPCNT 
| 5458 Oe6760 012600 MOV (SP)+,RO RESTORE RO 





mm ee en me i a rm re sn nr en a ne eee = 





O3-NOV-76 15:31 SUBRO 
026762 000207 RiS PC 


ROUTINE TO TURN L OR P CLOCK INTERRUPT ON 

#PRO,-(SP) ;PSW LOADED TO BE 
#2$,-(SP) ;LSI-11 COMPATOBLE 

RTI ;ENABLE CLOCK INTERRUPTS 


: . TIMUP 
005510 TST PCLKF 


O26 01 


PP 
: 
23 


1§ ;BRANCH IF P-CLOCK PRESENT 
$400,558 ;L-CLOCK, ENABLE INT 


sue 
ie 

8 

3 

i 


WeaeeteReEee 
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DZR6JB. CMS ROUTINES 
1 77777 (152310 1S: MOV #-1, aPKSB sP=CLOCK, ALL 1°S 
pernse Btetee 135 te3i8 MOV $138 apie *ENABLE INT, CT UP, REP INT 
ots 027034 000207 RTS PC sLINE FREQ & RUN 
Ee *KW11-L 8 KW11-P INTERRUPT HANDLER 
5478 027036 005037 001406 GLocK: CLR TIMUP 
5479 De70Ne 005337 001402 DEC COUNT 
5480 001010 BNE 1S 
dug 001400 001402 MOV HZ, COUNT 
001002 cae Bre ty 
| §484 027065 005237 001406 INC TIMUP sSORRY, TIME IS UP 
548s 027070 1S: ATI 
: 2y i *ROUTINE TO TURN L OR P CLOCK INTERRUPT OFF 
| S489 027072 01274 000340 CLKOF: MOV = #PR7,-(SP) ;PSW LOADED 10 BE 
E489 927076 ODle746 Oe7104 MOV #2$,-(SP) *LSI-11 COMPATABLE 
| e131 Ge7ie gogoge * RT ‘LOCK OUT ALL INTERRUPTS 
e433 110 001003 ~— BNE te sBRACH IF P-CLOCK PRESENT 
ie 152224 cLR alks *L-CLOCK, CLEAR INTERRUPT 
246 te726 Doso7? 152210 iS: GR EKS sP=CLOCK, CLEAR INTERRUPT 
| Bigg = : 
| 5499 ‘THIS ROUTINE CHECKS RKMR2 (MSGA)-WORDS O 8 1 
| 500 SINTER WITH SHOULD BE VALOE IN SeMRe” 
| §501 *RETURN IF NO COMPARE, RETURN +2 IF COMPARE 
| BES corize o1zrag ose dxure: MOV -TENP1,-(SP) =; SAV_ TEMP 
| Bebe Berea brary posse posdae Aov Sonne’ venpy © ZNSERT ORIVE 8 
eae a ee Na 
| §508 0e71 0054 DE CMP *HMRE ‘SHOULD BE SANE 
| §509 166 001005 BNE 1S 
| $510 1 1 o0s44 MOV (SP)+, TEMP RESTOR TEMP 
Bell 174 Sebeu? nied BOD 82, (SP) “COMPARE OK, SKIP OVER ERROR. 
i §513 ee) j oos44e 1S MOV (SP)+, TEMP! sRESTOR TEMP1 
_ $514 0e7206 000207 RTS PC 
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ea as Baar erate at SUBROUTINES 


5515 

ah 

5318 :THIS ROUTINE CHECKS RKMR3 (MSGB)-WORDS 0 8 1 

1 sENTER WITH SHOULD BE VALUE IN SBMR3 
;RETURN IF NO COMPARE, RETURN +2 IF COMPARE 
0272 20 Mee try oe Exnr3: mov TENPL = (SP) SAV TEMP1 
44 8 #¢C<M. ID>, TEMPL 

teres 053737 basaae Goes te TEMP, SBMA3 ;INSERT WORD 8 
02723 813737 OOSH4O O0S442 HOV SBMR3. TEMPL + cenrey oak toe 
BS75eq ee pecaus 005440 MOV FEHBy SMR fe HAS PARITY 
Sees EL 005440 005430 cH SBNRS, HRS *SHOULD BE SAME 
027266 012637 OOS44 MOV (SP)+. TEMP sRESTOR TEMP! 
berere at Seaods R00 #2, (SP) :COMPARE OK, SKIP OVER ERROR. 
027300 Ol2637 oos44e 1S: MOV (SP)+, TEMP ;RESTOR TEMP1 
027304 000207 RTS PC 


THIS ROUTINE GENERATES PARITY FOR SBMRE AND SBMR3 
3EN I SBMR3 


Heh a cae Soman ACER HORROR 





: Neepa” I CH ED. T ate Et , 1 ACH TIME THE CARRY BIT IS SET 
nt Ce Putiet BeiPistch Weitere 
: THE Pontty IT fy NOT SET INB. ’ 
IF IT IS NOT SET, INDICATING AN EVEN & OF 1°S ,THE PARITY BIT IS 
:SET IN TEMP 
027306 010046 SSPAR: MOV RO, -(SP) sSAVE RO 
027310 S101 R1’-(5P) : SAVE Ri 
le Ol ocoo21 MOV #17. ,RO >SHIFT COUNTER 
16 005001 CLR Ri “COUNT # OF 1°S IN TEMP 

e551 000241 €LC CLEAR CARRY 

eee 027322 006137 oos42 1S ROL TEMP! ; 

5554 103001 BCC 2 BR IF CARRY CLEAR 

5555 1 INC Ri SCOUNT 8 OF 1°S 

5556 005300 2s DEC RO SHIFT COUNT 

eee 027334 001372 BNE 1$ 

5559 032701 000001 BIT #81T0,R1 

5560 ie 1003 BNE BR IF # IN RO 

556 100000 oos442 BIS @.PAR, TEMP] =; Y BIT 

eepe e601 MOV (SP)+,R ‘RESTORE RI 

5563 01 MOV (5P)+/RO : 

5564 000207 RTS PC 

ere 

5557 ? ROUTINE TO ENABLE LOOPING ON INTERMITTANT ERRORS 

5568 sHHEN ‘SL SLPERR SET BY OTHER THAN SCOPE ROUTINE 

5569 : IE: MY LOOP MAC 


| 
| 
| 
| 
| 
| 
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e 
as 


032777 001000 151552 SCOPIS: Bl eeprom eat ON ERROR? 
001 BE 1 
001103 TSTB = SERFLG s HAD ERROR” 
erat’ BEQ 1$ R IF NO 
é. 13716 001110 MOV SLPERR, (SP) 

Oe740e 000002 RTI 

G27404 011637 001110 1$: MOV (SP), SLPERR ;SET LOOP ADDR FOR TIGHT SCOPE LOOP 
000002 RTI 


ROUTINE TO INPUT A *SPACE’ OR *CONTROL-C’ FROM TTY 


phnnannogannnaaaes 
: 


RETURN IF CONTROL-C 
RETURN +4 IF SPACE 
12 005777 i51530 ccsP: TST aSTKB s CLEAR DONE FLAG 
16 1044 0 RDCHR *READ CHAR FROM TTY 
1 MOV (SP)4.RO GET CHAR OFF STACK 
5591 020027 900040 CMP RD, #SPBAR “SEE IF SPACE 
Beas 027426 001406 BEQ BR I 
5594 027430 o20027 000003 CMP eal SEE IF CONTROL-C 
| Be 3. TouMD: 036513 eee | sca :G8.1F YES 
| i BR écsp TRY AGAIN 
5599 927444 062716 O00004 1S: ADD #4, (SP) 
{| §600 27450 000207 es: RTS PC 
| 5601 . 
| boos *ROUTINE TO INPUT A ’SPACE’ FROM TTY 
| 5680S oe74S2 005777 151470 gETSP: TST aSTKB sCLEAR DONE FLAG 
Bb0e bere 1044 ROCHR *READ CHAR OFF TTY 
| r MOV (SP)+,RO GET CHAR OFF STACK 
| §608 O27462 Oe0027 OCO0D40 CMP RO, #SPBAR *SEE IF SPACE 
| 3603 001403 Q 1S EXIT IF YES 
1 104401 036513 YPE MSG31 
| pbll 027474 000766 BR kETSP ‘TRY AGAIN 
bole 027476 000207 1S: RTS PC 
peti .SBTTL UNEXPECTED TIMEOUT HANDLER 
| 6616 
17 THIS ROUTINE 1s IF THERE IS 
ig : XISTANT MEMORY (NO SSYN) 
1 : 8° ERROR 
| §620 : C. STACK OVERFLOW 
S621 : 
bess 27509 011609 BADTMO: MOV —- (SP),RO : PC WHERE TIMEOUT OCCURRED. 
TST -(RO} >GET PC BEFORE UPDATE 
| §625 027504 032777 O20000 151426 BIT #SW13, ISWR * INHIBIT ERR TYPOUT? 
Sée6 0e75i2 001005 BNE 1$ YES, DON’T TYPE 
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CMB  - O3-NOV-76 15:31 UNEXPECTED TIMEOUT HANDLER 
4 104401 043327 TYPE M3 ORT TESTS.UNEXP T.0. 3 PC 
BS bigoe MoV «RO, = (SP) i SAVE BO FOR TYPEOUT i 
104402 TYPOS + type == TAL ASCII 

+0) .BYTE 6 $3 $00 & DIGIT(S) 

7525 “BYTE O : ; SUPPRESS LEADING ZEROS 
De75e6 932/77 001000 151404 1S: eI SHS, SHR iL 00P_ON ERROR? 
037536 Bosese ee ian (SP)+ ‘& arene STACK 
027540 900177 151342 IMP JSLPADR 60 fo St Pane ga Tine RDOR OF TEST 
027544 032777 O40000 151366 2S: BIT #SW14, ISWR i ee 
027552 001401 3EQ 3$ :NO BRANCH 
027554 oo00cd2 RTI ? YES 
027556 000000 3S: HALT sUNEXPECTED TIME OUT OCCURRED 


AS INDICATED. 2 a LOOP ON 
sERROR, LOOP r oR Rh NHIBIT 
ETCH TYPEOU BY" ari HOSE 


bersee S66r3? 2360s a aC 


-SBTTL UNEXPECTED INTERRUPT HANDLER 


THIS ROUTINE CHECKS pus (INH ERR TYPOUT), SW9 (LOOP ON ERR) 
8 SW14 (LOOP ON TEST) 


;INDICATED. YOU CAN LOOP ON ERROR, 


; T 
;ERROR TYPEOUT BY SETTING THOSE 
a3 TeHES 


CoE per eereerenrprrereeenees Hs 





O11 BADINT: MOV (SP),RO sSAVE PC INT OCCURRED 
naa heat TST -(RO} iGET T PC BEF BEFORE iPoate 
027572 032777 151340 BIT #SW13, ISWR : INHIBIT ERR TYPEOUT? 2 
free tose fe ear Reg : 
104401 043402 EMY “ABORT TESTS, UNEXP INT @ PC= 
027606 O10046 MOV RO,-(SP) s3SAVE RO FOR TYPEOUT 
, 027610 104403 TYPOS 3360 =-OCTAL ASCII 
De7ble 006 BYTE 6 >: TYPE 6 DIGIT(S) 
: 13 000 BYTE 0 SUPPRESS LEADING ZEROS 
027614 032777 001000 151316 1S: BIT #SW9, ISWR sLOOP_ON ERROR? 
| 027624 heed eee (SP)+. (SP)+ ST 
| eves 00017? 151254 jmp = SLPADR poplin BODR OF 
| sere 030777 040000 151300 2%: BIT $SH14, 2SHR : sL GOP, OH 
Bpbons RTI tyes. 
| 027644 000000 2S: HALT ;UNEXPEC p INTERRUPT OCCURRED AS 





HSE, CUE RUESIESTEC FP 2 


He 


104202 


BaRRDER ERE B SRE E 


SeBSRAgORSSS 


VIVIAN 
00D IOP UT .£ ITE 


| Baggnagggeeage Tay 


BE5ES8 B56T3? o23t0s 


G09 
TRENOL- FES PRReGBA"BlaBbewt='" PASE 110 


igen 


She 


RESTORE TEC 


-SBTTL MEMORY CHECK ENABLE TRAP 


MEMERR: MOV #1$, SESC 
MOV aii 
ERROR 202 
18: CLR SESCAPE 
SIT #SW9, ISWR 
BNE 23 
RTI 
25: MOV #STACK, SP 
IMP JSLPERR 
.SBTTL RKO& INTERRUPT HANDLER 
INTER: NOP 
NOP 
vit (SP), RO 
TST: -(RO) 
TYPE MSG 
MOV RO, -(SP) 
TYPOS 
.BYTE 6 
"BYTE O 
HALT 
NOP 
NOP 
RTI 


;STORE PC 
;UNEXP MEM PARITY ERROR 


sCHECK IF LOOP ON ERROR 
tYES, FORCE STACK AND TRY AGAIN 
ELSE RETURN 


;INIT STACK 


WHERE INT OCCURRED. 


~SBTTL POWER DOWN AND UP ROUTINES 


;POWER DOWN ROUTINE 


BR 2 

sPOWER UP ROUTINE 

SPWRUP: CLR T 

1S: NC T 
BS wo panee 
MOV #PR7, PURVEC+ 
MOV #PR7’ TRAPVEC+2 
MoV.  9STACK,SP 
TYP> ,MSGI1 
RESET 
INP PFSRT 





;SET UP VECTOR 
sHANG UP. 


tT La 
POWER DOWN VECTOR 


ORITY 7 
LOCKOUT ALL rs FOR TRAPS 


INITIALIZE. STR 


FAIL 





$739 


BERERCREDED ITO RR RSRBRARR ONO pone henna Ghee PEEP Ey 


| 
| 
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O3-NOV-76 15:31 
030036 000000 
030040 cia oo0040 
Baie Biteae 
030050 005466 
BSD 
ps0 TEST oo000e 
030064 005500 
030074 OoaoNe 
1 Doe D2 
a Boe Gi 
pale eee 
ar Bap 
B30119 066601 000002 
030120 005500 
Gauie4 Oeee08 000004 
030130 O00404 
pale 060501 
Gala DOSE 
DaulN2 0Ssi6 
iw Oobrie 
iF es 
1 
12 000006 
1 
160 006003 
030162 
ae rea 
Oaui7e dove 
174 
Bs fee ome 
e 
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SPWRCT: 0 


{DIVISION UTILITY ROUTINE 


ee 


R AFTER DIVISION 


 RO-R3= TIENT AFTER ER DIVISION 
ENTER WITH JSR PC,M 
f.DPID: MOV #40,-(SP) 
mY Ret 
NEG 2( SP) 
NEG asP 
c 2(SP) 
ADD asP,Ri 
ADS BSP) RO 
Bee M.DPSO 
CLR -(SP) 
M.DP4O: ROL R3 
ROL Re 
ROL Ri 
ROL RO 
TST asP 
Q M.OP41 
CLR asp 
ADD 2(SP),Ri 
ADC RO 
ADC asP 
ADD 4(SP) RO 
BR M.DP42 
M.OP41: ADD RS,R1 
ADC RO 
ADC asp 
ADD RY, RO 
M.DP42: ADC asP 
TST asP 
BEQ +4 
INC R3 
DEC (SP) 
BGT M. DP4O 
ROR R3 
BCS M. P44 
80D RS.RI 
ADD R4, RO 
CLC 
M.OP4Y4: R R3 
#10,SP 
CLV 


—— eee we eee 
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POWER DOWN AND UP ROUTINES 





;ADJUST STACK BY 4 WORDS 


;WAIT COUNT FOR TTY 


;COUNTER FOR DIVISION CYCLES 
iLO ORDER 

3L R TO THE STACK 

;FORM NEGATIVE 

; VERSION OF DIVISOR 


;PERFORM INIT SUBT. 


;IF CARRY THEN OVERFLOW HAS OCCURRED 
THIS IS A LONGER LASTING CARRY BIT 


sTEST CARRY INDICATOR 
IF TO CARRY THEN ADD, ELSE SUBT. 
*CLEAR UP FOR NEXT TIME 


;ADD -(DIVISOR) 
;SET CARRY 


$800 aor ecDIVISOR) 


;SET_CARR 
TEST THE ‘UPDATE INDICATOR 
IF O,FORGET IT 

NO CARRY 7POSSiBLE HERE 
+ DECRENENT CTR 
*BR IF MORE TO DO 








UNIBUS RK& DRIVE 
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DIAGNOSTIC 
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03020% 000207 


3 Oasis Qotes 


0214 O00e97 
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POWER DOWN AND UP ROUTINES 


RTS PC 
M.OPSO: ADD #6, SP 

SEV 

RTS PC 
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DZREIB.cME  OS-N 






NOV-76 1 
5801 
S80e 
5803 
S804 
5807 
bas 
S8ll 
eels 
581 
5814 
S815 030216 
S816 030216 104407 
S817 O302ee0 032777 oO40000 1507le 
aig 030226 001114 
S81 
See0 020230 000416 
1 ooco04 
a ee 
177060 
cise Gates Goons 
5828 012637 OO0004% 
cesg 000423 
5831 ore 000400 150644 
EES5 ere 150636 001102 
S834 00146S 
Ss Gaim itera? 001103 
5837 tates 001115 001103 
Se38 1 of 
5839 001000 150606 
S840 4O4 
eat Tee 001110 OO1106 
cayg 105037 001103 
cen Gateed Goety Obli70 
ESN 032777 OO4000 150554 
S847 
eeug ie OO0l2el2 
S58s0 001104 
book 023737 001170 001104 
1 1 OOll 
spss 12737 oopn01 01104 
cess 105237 its - — 
cess 113737 1102 001210 
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.SBTTL SCOPE HANDLER ROUTINE 

LTHIS ROUTINE CONTROLS THE LOOPING OF GUBTESTS. 17 WILL INCREMENT 
pint ROUT NE CONTROL L INCREMENT 
: ate 125. Ay Hee (DISPLAY<7:0>) 


i} THE ERRO Agia) "Itt 


: a9 08> 
; #THE SuITCH OPTIONS PROVIDED BY THIS Rot 
3 *SW14=] Year on 
;*SW11=) NHIBIT TIONS 
» =] LOOP ON 


:xSWO8=1 LOOP ON TEST IN SWR<7:0) 
;*CALL 


3# SCOPE ;; SCOPE=IOT 
SSCOPE: 
is: PF wrsann Ibi octane 
j BNE : ‘YES IF Sid 
jeneesSTORT OF CODE FOR THE XOR FA > ta 
‘ a : a itis Ih TNT RUCY ION 0. A reygb® (NoPoe0) 
ms et RE a 
MOV (SP)+. JHERRVEC {RESTORE THE ERROR VECTOR 
BR sSvLAb hs, TO XT TE 
cs: CMP (SP)+, (SP)+ >: CLEAR OFAC TER A TIME OUT 
HOV {SP)+, QHERRVEC + :RESTORE Re THE ERROR cTOR 
6$:;#8888END OF CODE FOR THE won’ HESTER Gags = 
BIT #81708, ISWR ON SPEC. TEST? 
cre S54, sTSTHt He The Rrout TEST? SWR<7:0> 
2S: ISTB Hoo ERROR OCCURRED? 
cHPB RMAX, SERFLG js MAX +f ERRORS FOR THIS TEST OCCURRED? 
BIT #81709, ISWR 3 LOOP ON ERROR? 
BEQ :BR IF NO 
7S: HOV SLPERR, SLPAOR snk LOOP ADDRESS TO LAST SCOPE 
= BP. fee TERATIONS TO MAKE 
GbR tS iM it a Sa F 
3S: BIT aBIT11, SUR rie von 
TST $Pass ii F FI 
BEQ 1$ He eet i : 
INC SICNT Bear te WAGE TERATION ¢ 
CMP STIMES, SICNT ONS MADE 
1s: HOY RAV STCNT ‘ oe. ai PREaIRED EDUNTER 
, MOV SHKCHT STINES Ht or Tek To DO 
— $S¥EAD: INC TSTNM 


i : COUNT TEST 
;SET 


STSTNM, STESTN TEST NUMBER ii APT MAILBOX 
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-NOV-76 15: HANDL 
3% 011637 001106 Mov (SP),SLPADR —; ;SAVE SCOPE LOOP ADDRESS 
ue 1163? vite OCR sescAPE Fat a ae oooe ROME RROR ADDRES 
Tapas BBAA Te ons Site ST SERHAX Hicles all Su ore CD BOHR ON NEST Teer 
O30460 013777 OO11Ge ISOYSY SOVER: NOV STSTNM, AQISPLAY : DISPLAY TEST NUNGER 
13716 O011 MOV PADR’ (SP) ;}EUOGE RETURN ADDRESS 
030472 900002 ‘FIXES PS 
030474 003720 SMXCNT: 2000. ttMAX. NUMBER OF ITERATIONS 


-SBTTL ERROR HANDLER ROUTINE 

Ribbidtettibiit iit tt bbb thts tete ete EIS i is ries te oo ee 
kT THIS ROUTI Wit INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
ie THE ER al I on NU ot AND THE ADDRESS OF THE ERROR CALL 


AND GO TO 
s#THE SUITCH OPTION PROV IOED BY THIS ROUTINE ARE: 


; *SW13=1 INHIBIT ERROR TYPEOUTS 
;#SW10=1 BELL ON ERROR 
ote LOOP ON ERROR 
3% ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
030476 SERROR 
030475 104407 CKSWR 3; TEST_FOR CHANGE IN SOFT-SWR 
fay 105237 001103 7$ INCB SERFLG 335E1 THE ERROR FLAG 
001775 BEQ 7 ;;DON’T LET THE FLAG GO TO ZERO 
030806 013777 001102 150426 MOV STSTNM, BDISPLAY j DISPLAY TEST NUMBER AND ERROR FLAG 
panei 032777 150416 BIT #B81T10, dSWR ;;BELL ON ERROR? 
001402 BEQ 1 33NO = SKI 
10440 74 TYPE SBELL ;RING BELL 


a 1S: INC SERTTL COUNT THE NUMBER OF ERRORS 
6 MOV (SP) SERRPC *:GET ADDRESS OF ERROR INSTRUCTION 
4 


030524 
030530 
Be oe 
MOVB seeRape SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
530554 p20000 1503 BIT aBITI3, , OSWR +#5k P TYP ouT IF SET 
030564 
pape 


: 


3 
sees 
2 


PC, TYPERR ::G0 TO USER ERROR ROUTINE 
, SCRLF : 


588 
ER 
SR 
Be 


20S: 


SALARIED 


74 122737 000001 001224 CMPB ss SAP TTENV, SENV sg RUNNING IN APT MODE 
030602 001007 BNE =NO,SKIP APT ERROR REPORT 
030604 113737 001114 030616 MOVE $ITEMB,21$ ::SEt ITEM NUMBER AS ERROR NUMBER 
030612 004737 031422 ee SR PC,SATYY | t REPORT FATAL ERROR TO APT 
el oD rie 
225: 2B 225 3 ;APT ERROR LOOP 
150312 2s: TST aSWR “HALT ON ERROR 
bP BPL 3$ ii SKIP F CONTINUE 
HALT * HALT RROR! 
B32 | CKSWR tHTEST FOR CHANGE IN SOFT-SWR 
001000 150276 3S: BIT #81709, aSWR *3LOOP_ON ERROR SWITCH SET? 
1402 BEQ 4g ::BR IF NO 
013716 001110 MOV SLPERR, (SP) : FUDGE RETURN FOR LOOPING 
0067 001172 4g; ISI SCAPE sr CHEEK FOR FOR AN ESCAPE ADDRESS 
013716 001172 MOV SESCAPE,(SP)  ;;FUDGE RE TRN ADDRESS FOR ESCAPE 







































g 
Sosa 


das bes be 
Oo £Mo 


Boas 


é 
aiatatagatatatay ainda 


ee ee ee ee ro 


=) 
& 


022737 
001001 


ooco0e 


023674 o00042 


001157 
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001224 
001225 


001225 
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ERROR HANDLER ROUTINE 


S$: 


6$: 


CMP 
BNE 
HALT 


#SENDAD, date 
6$ 


RTI 
-SBTTL TYPE ROUTINE 


; Di eg pl pl heh gl gt git 
; #ROUTINE TO ys F ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE 


j#THE ROUTINE 
OTE1: 


aN NOTES: 
s ENOTES: 


WILL INSERT AN 
$NULL_ CONTAI 


C 
SFILLC CONTAINS THE CHARACTER TO FILL AFTE 


SSCALL: 
#1) USING A TRAP INSTRUCTION 
TYPE » MESADR 


S$: 
6$: 


STPFLG 
1$ 


3$ 
RO, -(SP) 
J2tSP). RO 
SaPTENY. SENV 
#APTSPOOL,SENVM ; 


,61$ 
PC; SATY3 


BAPTCSUP, SENVM 
ae ,-(SP) 
(SP)+ 
(st RO 
(SP) 
an 
#CRLF, (SP) 
S$ 
(SP)+ 


SCHARCNT 
es 


PC, STYPEC 
sriitc, (SP)+ 







;;ACT-11 AUTO-ACCEPT? 
3 | BRANCH H IF NO 
+3 


; ; RETURN 


ER OF NULL CHARACTERS AFTER _A LINE FEED 
HE CHA Ten TO Be USED AS 
TENS REQUIRED. 


;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


3315 THERE A TERMINAL? 

338R if YES 

7 HAL HERE IF NO TERMINAL 
; LEAVE 


:SAVE RO 
tECET ADDRESS OF ASCIZ STRING 
:?RUNNING IN APT MODE 

33NO,GO CHECK FOR APT CONSOLE 


See 1 eee TSR Fon APT 
S 


Hite: C RESSED 
TES, SKIP OFYPE Ol 


CHaRoeT TYPED ONTO STACK 
erie 4 I FR Tp T THE TERMINATOR 
SRI YOR POP IT OFF THE STACK 


iF Tea 

3 }ADIUST RETURN PC 

tt BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


$3008 <«CR><LF> EQUIV 
3; TYPE A CR AND LF 


7 i CLEAR CHARACTER COUNT 
XT_CHARACTER 
i 0 TYPE THIS CHARACTER 


31S IT TIME FOR FILLER CHARS.? 
HIF NO GO GET NEXT CHAR. 





THE FILLER CHARACTER. 


ee oe ee 


CMB =: O3-NOV-76 
5969 031040 013746 
2a) 1044 
sr BIS 
97 10Se 004737 
974 031056 105337 
ate 03106e 900770 
ee 
Ba IBS ust 
5981 mathe 132737 
Be BIE ue 
5984 031106 000724 
5985 031110 105777 
5986 031114 100375 
5987 rotted 116677 
5988 O311e4 lee7bb 
5989 031132 001003 
S 031134 105037 
5991 031140 OO0406 
5992 031142 lee7bb 
Bees 031150 001402 
994 03115e 1052e7 
5995 031154 000000 
5996 031156 000207 
5997 
5998 
5999 
6000 
Bs 
6004 
6005 
6006 
6007 
6008. 
6009 
6010 031160 
Bu Bu gies 
i Bis gies 
6014 031166 Ol 
6015 031170 . 0105 
pais li 
Bi Be tie 
Pas G3is04 
Bie 
031 
pai 
1 





fu 
-_ 
o 


3 


BS 





001154 
000081 


031110 
031154 


O3i110 


000007 


150034 


900002 
000015 


031154 
000012 


po0020 
o000ss 


031374 
000040 


UNIBUS RKE& DRIVE DIAGNOSTIC. "py 3 
OZR6JB. 1S:3 


031154 


150026 
000092 


000002 


000001 
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TYPE ROUTINE 


MOV $NULL ,-(SP) G67 # OF FILLER CHARS. NEEDED 
73: DECB =s-«L( SP) ; DOES A NULL NEED 70 BE TYPED? 
BLT 6$ ‘BR IF NO--GO POP THE NULL OFF OF STACK 
JSR PC, $TYPEC 69 TYPE A 
DECB SCHARCNT 3300 NOT COUNT” ks A COUNT 
BR : :LOOP 
sHORIZONTAL TAB PROCESSOR 
8S: MOVB = &”-—« (SP) ;;REPLACE TAB WITH SPACE 
93: JSR Pc, $TYPEC :: TYPE A SPACE 
S178 47, SCHARCNT oN IF NOT AT 
a (8p )4 pop Sp cE OFF STACK 
BR ::GET NEXT CHARACTER 
STYPEC: ISTB STP. AIT UNTIL PRINTER IS READY 
MOVB  2(SP). a$TPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
CHEB ach, elSP) ie CHARACTER A CARRIAGE RETURN? 
cLRB SCHARCNT + $7 YES--CLEAR CHARACTER COUNT 
1S: CMPB so WL (SP) iis CHARACTER A LINE FEED? 
BEQ STYPEX i} BRANCH IF YES 
INCB = (PC) + COUNT THE CHARACTER 
SCHARCNT:.WORD O CHARACTER COUNT STORAGE 


STYPEX: RTS PC 
-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
| HHBE HEHE HHHEHHEHEHEEHHEEHHEHTHEHHHE HHH HHH HEHE 


{ATHIS RO ROUTINE IS USED 10 CHANGE A igeit RY R TOA 9 onct! 
: *#SIGNED ge (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
;*NUMBER IS WILL BE TYPED 


OSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN 
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
sEREPLACED WITH SPACES. 


*# MOV NUM, -(SP) s3PUT THE BINARY NUMBER ON THE STACK 
2% TYPDS :?G0 TO THE ROUTINE 
STYPDS: 

MOV RO, -(SP) ; PUSH RO ON STACK 

MOV RI, -(3P} js BUSH t a TACK 

MOV Re’ =(5P) i BUSH STACK 

MOV R3,-(SP) ;;PUSH 

MOV RS. -(5 - PU ON STACK 

MOV 40200, = (SP) 23S ITCH AND SIGN 

MOV 20(5P)>RS *:GET I NUMBER 

BPL 1$ ::BR IF_INPUT IS POS. 

NEG RS *:MAKE THE BINARY NUMBE 

MOVB = #’~, 1( SP) t:MAKE T ASCIT NUMBER NEG 
1S: CLR RO ::ZERO THE C STANTS INDE 

MOV #S$DBLK,R3 }}SETUP THE OUTPUT POINTER 

MOVB 8” =, (R3)+ SET THE FIRST CHARACTER TO A BLANK 
2s: CLR Re + CLEAR THE BCD NUMBER 


ee ee ee ee 





2 
5 
g 


2 


eoeeee & 


3 


-_ 
bb bP ph pe he 


eS Ya 


Ruuuneeere tees copugaocE 
Ssosessesssssssssssessssesesssessseeseses BF 


be bb Bb a bb pe bb ps 2 0b bh bb hb bh hh pe he 


INAS TREN EOORER TNOS TRS eRE LS 


SuSwe 


=— 
Pe oe oe 
SSn 


DIAGNOSTIC PART 3 


VE 

O3-NOV-76 15:31 
eT 031364 
ate 


010502 


: 


3: 


177777 


Stetetaraiciciatetet= 
Ean 
oS 
: 


=e 
7 
B 


SR 
Besa 


115737 Oo0001 
000403 


112737 000001 


177777 


177776 


000004 


031650 
031646 


031650 


105737 O31646 ~~ 


122737 000001 


00 
132737 000100 
001425 


001224 
0012e5 


MACY11_27( 1006) 
CONVERT BINARY TO 


3$: 


4$: 


9S: 


SDTBL: 


SDBLK: 
»SBTTL 


ECIMAL AN 
SDTBL(RO),R1 
R1,RS 


1, RS 
Re 

S$ 
(SP) 
$ 
(SP) 
1(SP) 
#’0,R2 


-1(R3) 


-1(SP),-2(R3) 
(R3) 


NO 


Open {5 





:34 PAGE 117 
TYPE ROUTIN 


;;GET THE CONSTANT 
;;FORM THIS BCD DIGIT 


‘INCREASE THE BCD DIGIT BY 1 


;;ADD BACK THE CONSTANT 
;;CHECK_IF BCD DIGIT=0 


;;FALL THROUGH IF 0 
piBtTth DOING LEADING 0°S? 
;;6R : YES 


I 
;;MAKE_IT ACE ALREADY A DIGIT 
;;PUT_ THIS aca IN THE OUTPUT BUFFER 


THE LSD 
33GO0 CHANGE TO ASCII 
;;WAS THE LSD THE FIRST NON-ZERO? 


3;NOW TYPE THE NUM 
;;ADJUST THE STACK 
;;RETURN TO USER 


rKW OY 
COMMUNICATIONS ROUTINE 


ss Wie MOV a1 SFFLGQ se TO REPORT FATCL ERROR 


aA: 


SATY4: 
SATYC: 


SATYC 
#1,SFFLG 


RO, -(SP) 


Ri’ (SP) 
SMFLG 


S$ 
SP TeNY , SEM 
thebeats 


370 REPORT FATAL 

3310 TYPE A MESSA 

3;70 ONLY REPORT FATAL ERROR 

;;PUSH RO ON STACK 

;;PUSH Rl ON STACK 

;;SHOULD TYPE A MESSAGE? 

ite AE 

;;OPERATING UNDER APT? 

;;IF NOT: BR 

;;SHOULD SPOOL MESSAGES? 
IF NOT: BR 





5 
~~ 
5 


SEE 


jt tt 


KKM K GMM PPMP MMMMMOMMmMrPrmmm mid ac 
KRFSREBSSRVRRPORVBsoNsensw-oSSVweneaw-o 
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CMB s«OS-NOV-76 15:31 APT COMMUNICATIONS ROUTINE 
pat ee be BSpos2 0000s yn ere TOE ee AOE RETURN ADDR 
eta pees Bbr soa 18: is} SMSGTYPE $3SEE TF DONE. W/ LAST XMISSION? 
1€ ryt 001220 MOV 0, $MSGAD ::PUT ADDR IN MAILBOX 
i p iss 2s: iste cR0)+ ::FIND END OF MESSAGE 
ie} l 001220 S §MSGAD, RO 3388 START OF MESSAGE 
1316 AS RO ::GET MESSAGE LNGTH IN WORDS 
l 1 001222 MOV RO, SMSGLGT PUT LENGTH IN MAILBOX 
ibe 01 090904 001204 HOV a4, SMSCTYPE *: TELL APT TO TAKE MSG. 
x 
pat ess 17 po0004 O31560 35: MOV 3S sp) ug ;;PUT MSG ADDR IN JSR LINKAGE 
1 ogooge 000004 ADD 82, 4(SP) BUMP RETURN ADDRESS 
1 sre lore MOV 177776, -(SP) :;PUSH 177776 ON STACK 
1 7 JSR PC, STYPE :;CALL TYPE MACRO 
ise oo0000 us: .WORD 0 
1 105737 031650 l TSTB = SFFLG $3 REPOPT FATAL ERROR? 
ime 416 3 les 33 IF : BR 
1 001224 TS SENV > :RUNNING UNDER APT? 
1574 413 BEQ 1e$ s3IF NOT: Br 
1876 001204 118: TST SMSGTYPE *:FINISHED LAST MESSAGE? 
031 1 BNE 115 23 IF NOT: 1 
631604 01 po0004 001206 MOV DY(SP) SFATAL  ;:GET ERROR # 
1612 p90082 Oo00d04 ADD #2, 4(SP) --BUMP RETURN ADDR. 
031620 OpSe37 po1e04 INC SMSGTYPE ;;TELL APT TO TAKE ERROR 
Bs bes 1 1650 128: CLRB  SFFLG CLEAR FATAL FLAG 
Ba 105037 031647 CLRB8 = SLFLG *:CLEAR LOG FLAG 
1634 1 031646 CLRB  §MFLG *:CLEAR MESSAGE FLAG 
B164 bieb0l MOV (SP)+,R1 ::POP STACK INTO RI 
1642 012600 MOV (SP)+°RO >:FOP STACK INTO RO 
031644 000207 RTS PC : ;RETURN 
Gs ibHe 000 LG: .B p ::MESSG. FLAG 
03164 000 G: .BY $8 FLAG 
031650 ose SFFLG: BYTE 0 ::FATAL FLAG 
cca AP TENTEOBT 
550700 APTSPOOL S100 
00049 APTCSUP=040 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


3. AE 9 8 A 9 4 A A EE aE EE 
;#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A &-DIGIT 
;#OCTAL (ASCII) NUMBER AND TYPE IT. 

+ apa HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;#CALL: 

3% MOV NUM, -(SP) ;;NUMBER TO BE TYPED 

3% TYPOS s;CALL FOR TYPEOUT 

3% yi N ;;Nsl1 TO & FOR NUMEER OF DIGITS TO TYPE 
3% -BYT M 33M= 0 

3% ;;1=TYPE LEADING ZEROS 

; ° ;;Q=SUPPRESS LEADING ZEROS 


;#STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 





C10 


“NOV-76 15:34 PR 


BINARY TO OCTAL (ASCII) AND TYPE 


:*#STYPOS UR STYPOC 


GE 119 


03 


MACY11 27(1006) 


AGNOSTIC. FART 3 


O3-NOV-76 15:21 


BUS RKE& DRIVE OF 
CMS 


I 


5 


;;NUMBER TO BE TYPED 


;CALL FOR TYPEOUT 


;#STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


;NUMBER TO BE TYPED 


;CALL FOR TYPEOUT 


~ 
eas a eee 


S BABESHST PPS PTRAMATARARGBSYBT SSS BERK nc renames 


3 é 
2 § - os ¢ 
#& Se £2 5s Roe © 
-wW mew o ~ ~ ~ 5 = 
coy FS Sg ace, = z . % # 
ing ER eysto; uwt»h %8.8 es § 
Sta. “ob SUSEE GS fs bu Meo Ex 
Sse 2 reea B FES Sgeten Fe 6S 
Wout Rut “Teen Sun Saat te =~ wwe Wz, 
“po wswozew Brwok fz gEtokavaegs zeae w 
seu wut Eo bate aan piu tessor 
zabs wodas aaaecese rare fivistant ones 
a8 
I * x _< 
oa SEROoaS gee -! zoe 
Pas reve a 28 Sag estes 
« oe Oo <A 
OM SOD WAT SE RULE SM SOE nz 


seeGaSreseeceet idadesbeaacengenter wauesBBBEs 


SS: 
7$ 
6$: 


ee ee ee ee 
= & ? 


i ae 


5 Ese 


beeen deen teen dope hoses Loox Looe A ARI Mn ee ee ee 
LV LD LV LDL D9 LD LD DL LD LD DL 0D 0 DD 0D 0D LD 0D 0D DD DD 0D 00 0 LD 0 Oe Oe Dd 


rm wr ee nn ns es te ee ee = ee eee 
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.CMB 0s OS-NOV-76 15:21 BINARY TO OCTAL (ASCII) AND TYPE 
6193 RII ; ;RETURN 
6194 see QS: .BYTE 0 Hit: FOR ASCII DIGIT 
6195 000 “BYTE 0 TERMINATOR FOR TYPE ROUTINE 
B13 090 SOCNT: ‘BYTE 0 O0CTAL DIGIT COUNTER 
61 b3e075 000 SOFILL: :BYTE 0 :ZERO FILL SWITCH , 
138 000900 MODE: . ::NUMBER OF DIGITS TO TYPE 
61 -SBTTL TTY INPUT ROUTINE 
620 $3 SELERSEL VEEL EL FLL FRSE FS EEKE REELS BLES SSLE LESSEE SE LEPEASELEES GPSS 
ests "ENABL LSB 
£204 $s BRPEEEPESHSDSLSSHE ERA GLE LEER SREAZEAAALSERSL LPS ERELPRSE REA SSPSES 
6205 SOFTWARE SWITCH CHANGE . 
6206 :#ROUTINE I5 ENTE ROM THE TRAP HANDLER, AND WILL 
6207 *#SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
6208 WHEN OPERATING IN TTY FLAG MODE. 
6209 032100 022737 000176 001140 $CKSWR: CMP sSWREG, SWR 31S THE SOFT-SWR SELECTED? 
6210 03210 1074 15$ BRANCH IF NO 
6211 032110 1 147030 TS aSTKS *:CHAR THERE? 
6212 032114 100071 BPL ::IF NO, DON’T WAIT AROUND 
6213 032116 112M 147024 MOVB TKB,-(SP) >:SAVE THE CHAR 
6214 O3el22 042716 177600 BIC #10177, (SP) ::STRIP-OFF THE ASCII 
6215 032126 022726 CMP (SP$+ 3315 IT A CONTROL G? 
6216 O3el32 OO10Ee2 & > 3NO RETURN TO USER 
6217 032134 124727 001134 900001 CMPB TOB, #1 ARE WE RUNNING IN AUTO-MODE? 
bel8 142 O01 BEQ 15 *:BRANCH IF YES 
6220 032144 104401 032765 TYPE  ,SCNTLG ssECHO THE CONTROL-G (4G) 
| 6221 9321S0 104401 032772 SGTSWR: TYPE SMSWR >: TYPE CURRENT CONTENTS 
E552 03e154 013746 000176 MOV SWREG, - (SP) >:SAVE SWREG FOR TYPEOUT 
6223 032160 104402 TYPOC 3G0 TYPE--OCTAL ASCII(ALL DIGITS) 
ESSe peat ipeiae 033003 18: GR tree tifheaR COUNTER 
| B22 past reat “o., o -(5P) THE NEW SWR 
| $227 O3e172 105777 146746 7S TST3 = @STKS ::CHAR THERE? 
| e228 632176 100375 BPL 7§ ::IF NOT TRY AGAIN 
6230 117746 146742 MOVB  a$TKB,-(SP) ;PICK UP CHAR 
6231 O3ec04 O42716 177600 BIC 81C17?, (SP) :MAKE IT 7-BIT ASCII 
P53 
= 032210 O21 000025 ag CMP (SP), #25 31S IT A CONTROL-U? 
| a4 passit vaste BNE 10s ’ :: BRANCH IF NOT 
| 6237 O32216 104401 032760 TYPE SCNTLU 3YES, ECHO CONTROL-U (tU) 
bese ieee? 000006 20S: ADD &6,SP ;;I1GNORE PREVIOUS INPUT 
| P5338 oR i38 stLET’S TRY IT AGAIN 
| Boul 
i geup 021627 o00015 10S: CMP (SP), #15 5315 IT A <CR>? 
| Bea bos766 000004 fot CSP) tives, 1S 11 THE FIRST CHAR? 
| be4S 1 Bea iis. BRI if ves ; 
Bee en a en Eon 
| Pode BaSSee SBIMBY BOToD: 148: TYPE , SCRLF PFEGHO <CR> AND <LF> 
| 


! 
' 
! 
; 





oe eee 


po mn a ee ee ee 


—OwW 


ee 


Secs ee ewe Pe eee Uist MERE A RRMA Mt ce aa att 





001135 
000166 


oe 


000067 


e 


% 5 


ef 


os 


46510 


cgf & 


SBS URS 


000001 
146654 


JUUUUE 


000004 
000004 
000023 


TTY INPUT 


-e— 
Aw 
ee ce 


th 
wan-—w 


SERTAG, #1 
#100, dSTKS 


PC, STYPEC 
(SP), #60 


18 
(SP), 867 


1 
#60, (SP)+ 
2(SP) 
7$ 
SP) 
SP) 
) 
P) 
SP), (SP) 


UES 


—-~wo 


oe 
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; RE-ENABLE TTY KBD INTERRUPTS? 
::BRANCH IF NOT 

;;RE-ENABLE TTY KBD INTERRUPTS 
» sRETURN 

ss;ECHO CHAR 

3;CHAR < 0? 


tS TYPE 2<CR> <LF> 
3;SIMULATE CONTROL-U 


fp LRARREAAEAELALLELELELA LLL LA ALE ELELELELE RELL LLELALALRERAAELLEEE 
: THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


H ROCHR 
if RETURN HERE 
SROCHR: MOV (SP), -(SP) 
MOV 4(SP) ,2°SP) 
1S: STB aSTKS 
MOVB TKB,4(SP) 
BIC 8106177) .4(SP) 
cHP 4(SP), 823 
2s TSTB 3B Ks 
BPL 23 
MOVB  a$TKB,-(SP) 
BIC 810177, (SP) 
(SP)+, bel 
BNE es 
BR 1$ 
3S: CMP 4(SP), #140 
BLT 4g 
CMP 4(SP), #175 
BGI 4g 
Cc #40, 4(SP) 
RTI 


3; INPUT A SINGLE CHARACTER FROM THE TTY 


; ;CHARACTER IS ON THE STACK 
;;WITH PARITY BIT STRIPPED OFF 


THE PC 


uy g ee R 

OS: AUENTELEGAESEEAREEEHEEEEESOEELSGASEEEAES OOS SSAMEEEEELOOOAEOEE 
sATHIS ROUTINE WILL INPUT A STRING FROM THE TTY 

; *CALL: 


;# ROLIN 


;;INPUT A STRING FROM THE TTY 





Aa AMAA YY aUy Ae Oca CR CSIs aanaaen agen aa BES 


_ ee ee ne ee eee = re ca ee eee 6 ee a re Ee 





chee 
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: HE REGSHBSTES. TTY theGt ASCP INE ss 
3% RETURN HERE : ADDRES FIRST CHARACTER WILL BE ON THE STACK 
;# + OPRNTRATOR fidte “ A Byte OF ALL Bg 
032502 010346 SROLIN: Hoy R3 (SP) $3 SAVE R send an 
nee pr39c8 032736 1$: vat #STTYIN,R3 3, RDDRESe 
032512 922703 032760 2s: CMP #STTYIN¢+22,R3  ;;BUFFER FULL? 
cl 1014 BLOS «4S *:BR IF YES 
10441 RDCHR :G0_ READ ONE CHARACTER FROM THE TTY 
11261 MOVB  (SP)+4, (R3) °:GET CHARACTER 
122713 000177 10$:  CMPB  #177,¢R3) *:IS IT A RUBOUT 
0325.30 pplcee S$ ;;BR IF_NO 
1325.32 60 1 TS (SP) He a THIS THE FIRST RUBOUT? 
+3 
lie7a? 000134 032734 MOVE = #"\, 95 >: TYPE A BACK SLASH 
ee 104401 032734 35 
1 177777 MOV b-1, (SP) ;;SET THE RUBOUT KEY 
6S: DEC R3 ::BACKUP BY ONE 
032736 CMP R3, #STTYIN ;;STACK EMPTY? 
Osebe 13434 BLO y :BR IF YES 
Ill 032734 MOVB (R3),98 *:SETUP TO TYPEOUT THE DELETED CHAR. 
aay 04401 032734 TYPE 9$ $3 Les 
Aoa74e BR 2g 360 ANOTHER CHAR 
005716 cs: TST (SP) ::RUBOUT KEY SET? 
Ls BEQ 7$ se F 
ll 000134 032734 MOVB = &’\, 95 3 A BACK SLASH 
032610 104401 032734 TYPE 13S, ope 
Kr: ee 
D326 3 1§ 000025 73: Riba 435. (RQ) + TERR RAETER a CTRL U? 
032622 001003 BNE 4 ::BR IF NO 
ee inaree 032760 TYPE NTLU psy a “u" 
12271 QS: CMPB ss 22, (RB) 31S CHARACTER A “tR"? 
Rear et Ele $3 ft 
10501 (R3) 33 THE CHARACTER 
ODL Boeaae TYE | STTYIN bE THE INPET STRING 
6Sc niaetts BR ag + OY BICKLP WNOTHER ANScTER 
104401 001200 4§ TYPE j S0UES $3 TYPE A Bey pane ts 
porns 032734 3s MOVB (83), 9 >:ECHO THE cAbRAE an 
104401 032734 TYPE 
0326 000015 CMPB «=—s«S, (R3)+ ;;CHECK FOR RETURN 
BNE 2s :LOOP IF NOT RETURN 
1 LRB 3s 1 (R3) CLEAR RETURN (THE 1S) 


SLF SETYPE A LINE FEED 


444 
wn 
a3 


19 SP)+ ;;CLEAN RUBOUT KEY FROM THE STACK 
1 SP)+,R3 ;;RESTORE R3 
SP) ,-(SP) ;;ADJUST THE STACK AND PUT ADDRESS OF THE 
Hi cep) 33 FIRST ASCII CHARACTER ON IT 
’ 


z 
~ 
~~ 


; sRETURN 
3S: BYTE +: STORAGE FOR ASCII CHAR. TO TYPE 
Y 33 TERMINAT 


STTYIN: .BLKB s:RESERVE 22 BYTES FOR TTY INPUT 
oosois 000 SCNTLU: [ASCIZ /fU/<15><12>  };CONTROL "U" 


Siesesisiees 
: 
e 
2222 








ea ae On Roe len 3 ALT 1 OR We” a A 10. PAGE 123 
03 


S 1 006507 O00012 SCNTLG: 2331) 7*G/<15)><12> ;;CONTROL “G” 









6361 
babe O05 O20l22 SMSWR: .ASCIZ <15><12>/SWR = / 
6364 040 047040 OS3S0S SMNEW: .ASCIZ / NEW =/ 
6365 033010 036440 OCcOO4O 
babe .SBTTL READ AN OCTAL NUMBER FROM THE TTY 
6368 SEES LEREELE ELE RELL SLE SRA LEK AE RS SHEL E XL AS RAE L SS LAL HALAL HEF KSSH FASE 
5368 :ATHTS HIS ROUTINE WILL LL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
AFERS WILL CKED TO I THEY ARE LEGAL 
eure Dasa FN dtl Eat C cheRecT RcYeR {SREB BO Aer WILL BE 3 PED 
6374 HETIEN Be BE RETYPED tae t ENELT ue SERRINGTED ay TYPING A CARRIAGE RETURN. 
pa, i* RETURN HERE BIT OF THE STACK 
be | 1% 1, OR, ets oy ty SHroeT 
6380 033014 O11646 SRDOCT: MOV (SP). -(SP) :;PROVIDE SPACE FOR THE 
6381 032016 016666 O00004 ocDDDce MOV 4(SP}.2(SP) +: INPUT 
638¢ 533064 O10046 MOV RO, -(5P) *:PUSH RO ON STACK 
10146 MOV R1,-(SP) PUSH RI ON STACK 
Ease Gaanse TOM iss RIN tT REBD GN RSCTS LINE 
Peep A oehh MOV (SP)+,RO ieee ADDRESS OF 1ST CHARACTER 
6387 033036 010037 033142 RO,SS *:AND SAVE IT 
Be fee fee fe ee re 
6390 112046 2s: MOVB (RO) +, -(SP) ; sPICKUP THIS CHARACTER 
6331 033050 oor BEQ 3$ :: IF ZERO GET OUT 
e3¢2 033052 122716 000060 CMPB sow’, (SP) MAKE SURE THIS CHARACTER 
ee peer ToSyie 000067 Bere Cat. (SP) 55 EM OGM, Gees! 
6395 be5438 BLT yg 
63% 00601 ASL Ri + 3#2 
6397 102 ROL Re 
P3aq O53078 Ope ae ROL Re dal 
eae th 1 ASL Al 33*8 
| Eos Gasite Oserié 17770 Bie = 8C7, (SP) ;;STRIP THE ASCII JUNK 
p43 633106 062601 B00 (SP)4,R1 : FAD IN THIS DIGIT 
| 6405 Baal ie 3$ Tot (SP)+ :CLEAN MINATOR FROM STACK 
a o33114 10166 oo0012 V Ri, 12(SP) SAVE T 
133120 010237 033152 MOV R2’ SHIOCT 
| 6408 033124 01 MOV © (SP)+, Re $3POP STACK INTO 
| 6409 0331 ue MOV (SP)+, 81 + POP NTO fe 
pid past 1 wy (SP)+,R op Stack INTO RO 
| pile 0331 ots 726 4g: nat (sp )+ sik AN PARTIAL FR FROM STACK 7 
a 033136 | cLRB (RO) i596 A TERM 
ae 633140 104401 oa T ‘ >: TYPE UP THRU THE BAD CHAR. 
| Bulg Ossi fOa901 001200 + PE. goues 530" “OR” & “LEY 
| 
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DOREIB.c O3-NOV-76 15:31 READ AN OCTAL NUMBER FROM THE TTY 


417 1 ? BR $ ss TRY 
buiZ oa3te8 pep aap SHIOCT: .WORD Z 1 Pee BITS GO HERE 

413 "SBTTL OOUBLE LENGTH BINARY 70 O&TAL ASCII CONVERT ROUTINE 
bse) ia bTHIG ROUTING Witt CONVERT A ao B17 UNSIGNED BINARY NUMBER 70 AN 
bye iATHIS ROUT ANE alll. CONVERT. A 32-BIT UNSIGNED BINARY NUMBER TO AN 
6424 SSCALL 
bY :# MOV #PNTR, -(SP) ; POINTER T Low WORD OF BINARY NUMBER 
4 :% JSR PC, as$DB20 :CALL THE ROUTI 
b4ez * RETURN >: THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
6429 
6430 033154 104413 $DB20: SAVREG ;;SAVE ALL REGISTERS 
6431 033156 016601 oo0002 MOV 2(SP), Ri ::PICKUP THE POINTER TO LOW WORD 
piss paSibe Bis 5 p35 ited NOV wSOCTUL #13. ,RS OM EVEN- CHARACTERS. 
6434 33158 ptee84 179770 MOV ##C7°R3 He 
6435 033176 012100 MOV (R1)$,RO TOWER WORD 
£4 lel MOV (R1)+,R1 5 ;HIGH 
6437 023202 CLR Re +; TERMINA 
b438 033204 11 1S: Hove Re, = (RS) s5PUT CHERACTER IN DATA TABLE 
6440 Meat eaerd DEC RY’ + BUNT te CHARACTER 
644 O33e1¢ BGT 3$ -:BR IF NOT LAST DIGIT 
Eaae 14 001 BEQ 2S :BR IF IT IS LAST DIGIT 
6443 033216 INC RS ALL DIGITS DONE-ADJUST POINTER FOR FIRST 
6444 033020 O10S6E o00002 MOV RS, 2(SP) *:ASCIZ CHAR. & PUT T 
B44S 833204 104414 RESREG *:RESTORE ALL REGIS 
6 033028 RTS PC RETURN TO USER 
6447 033230 23: ASR R3 >:POSITION THE MASK FOR THE gest DIGIT 
eas ose Boeco0 ~~ os ae POST TL NEXT OCTAL breve 
cel beg Gem me i | 
6452 te 006001 ROR Rl 
bis psses0 tee7o8 ash 000060 at ae Hy ours uae AL a 
6457 033256 O00016 SOCTVL: BF ti. spurt it "i ies ‘Da a 
pues ~SBTTL DOUBLE LENGTH BINARY TO bee TRAL sett RCONVERT ROUTINE 
6460 5 ETNIS ROUTINE WILL CONVERT A 2-817 BINARY NUMBER TO AN UNSIGNED 
6461 KTHIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
bbe superna ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
6464 *CALL 
Bubs is HOV age ;;POINTER TO LOW WORD OF BINARY NUMBER 
6467 + RETURN ;;THE FIRST ADDRESS OF ASCIZ 
bib 21S ON THE STACK 

70 

71 03 104413 $OB2D: SAVREG SAVE REGISTERS 

| 6472 033276 Olb602 o00002 MOV 2(SP),R2 ::PICKUP THE DATA POINTER 


DoRETB. ChB =e 


4 012700 033454 MUV WSDECVL 
biea G3330e 2 MOV RO, 2(SP) 
475 Gals ois33 MOV (R2)+,R 
4 14 Ole Vv R2)+,R 
Buse Ossie OLS7eN Soo ee MOY Se TRPUS. RY 
=) HERR pee ee Reet 8STNPWRS2, RS 
Fel Gee Je a een 
: ' 
6483 oss34e 161502 Sus (RS) ,R2 
£484 AptSpS BLT 3$ 
BYES 03334 005203 Inc R3 
fe ee bee ~ >? 
6489 033356 062402 ADD (R4)+, Re 
6490 033560 Oe2s25 CMP (RS)+ 
649 O3330¢ 052703 000060 BIS #’0.R3 
bise 110320 MOVE 3, tRO)+ 
6493 033370 DEC (PO)+ 
bys 033372 enogog us: giloRo 0 
ae pase 105 : Refkec (RO)+ 
1h 4 aeel | 
6498 033402 Aoaane RTS PC 
foag peaupe daeeae —— 
6501 Oa941 160400 1e0400 
ests 16 1203 Eee 
6505 sabes 041100 
6506 O33422 000017 17 
BS ies ee bye 
Ee fs Bees — 
6510 033432 000000 6 
ae 033434 001750 4750 
6512 033436 
6513 033440 000144 144 
6514 O33442 O00000 0 
as F 
ete 033452 600000 b 
6519 033454 000014 SDECVL: .BLKB le. 
Ee5y 
6522 
6523 
bees 
6528 


-76 15:31 


DIAGNOSTIC. PART 3 


110 
AGE 125 
D2RJB v 
ING 
010066 0000 OV RO, 2 (SP 
NUMBER 
Mov ¢ 
ag 
MOV 
MOV 
R3 
se OR 
| 
| 


MACYLI 27(1006) O3-NOV-76 15:34 .PAGE 1 
DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


- SBTTL 


SINGLE LENGTH BINARY TO 


"(RS)+ 


bECTRAL Ast 


;;GET ADDRESS OF “SDECVL" STRIN 
;;PUT ADDRESS OF ASCIZ STRING ON STACK 
;;PICKUP THE BINARY 


;;SET UP TO DO 10 CONVERSIONS 
;;ADDRESS OF TEN POWER 


;;CLEAR PARTIAL 
::SUBTRACT TEN POWER 


;;BR_IF TEN POWER TO LARGE 
;;ADD 1 TO PARTIAL 


330 
;;RESTORE SUBTRACTED VALUE 


;;MOVE TO NEXT TEN POWER 
§ 3 GS PRT IAL TO ASCII 
>: DONE? 

;;8R_IF NO 

3; TERMINATOR 

;;RESTORE REGISTERS 

e * RETURN 


FOR ASCIZ STRING 
ROUTINE 


55 9 6 9 9 9 9 9 9 J aE EH 
s#THIS ROUTINE WILL CONVERT A j6-8iT UNSIGNED BINARY NUMBER TO AN 


# MOV 
5% JSR 
RETURN 


;*#UNSIGNED DECIMAL ASCIZ 
#CALL 


NUMBER, -(SP) 
PC, a#SSB2D 


sPUT, BINARY NUMBER ON THE STACK 
+ ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 


















UNIBUS RKE ORI 
OZR6J8. CNB 
6529 
6530 
Pash 033470 
be Bae 
6534 


ree 
033520 


VE DIAGNOSTIC PART 3 
O3-NOV-76 15:31 


ue ee 033520 
pases Samos 
OCCO00 


000000 


010037 033554 


SSUPRS: MOV RO, -(SP) ;;SAVE RO 
MOV 4(SP),RO ;;PICKUP THE POINTER 
1$ TSTB (RO) 13 TERY NATEOR? 
BEQ 2s 3;BR IF YES 
CMPB #'0,(RO)+ 3;I1S THIS AN ASCII "0" ”? 
hi BEQ 1$ ;;BR IF YES 
. 2S: DEC RO ;;BACKUP BY "1" 
MOV RO, 3$ ;; SAVE FOR TYPING 
TYPE 3;G0 T 
3S: -WORD O ;;ASCIZ POINTER GOES HERE 
MOV (SP)+,RO ; ;RESTO! 
MOV sare, (oP ;;RESTORE THE STACK 






MACY11 27(1006) O3-NOV-76 15:34 PAGE 126 
SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


$SB2D: MOV 2(SP),1$ + ;SAVE BINARY NUMBER 
MOV #15, -(SP) +: SET POINTER 
JSR PC, d#$DB2D :;CALL DOUBLELENGTH CONVERT 
ADD (SP) -  $20ONLY ALLOW FIVE. CHARACTERS 
Moy (SP)+,2(SP) ::PICKUP POINTER . 
R PC * RET 


5 
1$: W 
 SBTTL SPE NUMER CAL ASCIZ STRING SUPPRESS LEADING ZEROS 


5 5 LRRARAAES RE LAAA LEAS LL ALR EL ALLA LALA ALE RELE LALA EEL ELLA ALAA EREE 
*RTHIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE — 
#LEADING NUMBERS. 

* MOV SNUMADR,-(SP)  ;;FIRST ADDRESS OF ASCIZ STRING 

* JSR PC, a8SSUPRS 


RTS 33 
.SBTTL INTEGER MULTIPLY ROUTINE 
OOO neeajageoe cope ganpeaemneaRtagE ee cipt meer ete Ko tem pip ent 
is MOV MULTIPLER, -(SP) 


: MOV MULTIPLICAND, -(SP) 

2 JSR PC S¥SMUL 

if RETURN ;;PRODUCT IS ON THE STACK 

ii STACK PRODUCT 

+" TOP LsB's 

o& +2 NSB’ 

SMULT: 
MOV RO,-(SP) ;;PUSH RO ON STACK 
MOV R1,-(5P) : PUSH RI ON STACK 
MOV -(SP) ;;PUSH Re ON STACK 
CLR -(SP) *:CLEAR THE SIGN KEY 
MOV 12(SP),R1 *3GET THE MULTIPLICAND 
Pc Ot« eR ME SIGN KEY 
Nee Ri *:MAKE THE MULTIPLICAND POSTIVE 


1S: MOV L4(SP),R2 *3GET THE MULTIPLIER 


eg 


BeeRneoee 


ESBESESRERE 
WONCUIL WHO 


PASAAASAAA TARA AS EAE! 


© 
5 


ee ee ny 


033612 
a 


sas 
2 


Os3eH2 


033646 


0336S2 
033654 


ss 


i 


033670 
033672 
033674 





012746 


: 


= 


Eg 


DIAGNOST 
-NOV-76 1 


aoe 


MACY! eee y Bt V-76 15:34 PAGE 127 


INTEGER MUL 


2s: MOV 
3$: BCC 
4§: ROR 


S$: TST 


; ¥TOP---( +16) 
;# +2---(+18) 
3% +4---R5 
3% +6---R4 

3% 48---83 

3 #+10---Re 
;#+1e---R 

3 #4+14---R 


SSAVREG: 


: L. 





Wee A AAR 
gazes 
Ent 


Boe 


; HRESTORE RO-RS 
*%  RESREG 


;;BR I 
;;UPDA 
: ;MAKE 
33; SET 

3;SETU 
;;DON’ 


;;POSI 
eeT 






F PLUS 
; THE 
HE 
THE L 


Y 
FR POSTIVE 


P FOR TIPLY LOOP 
T ADD I IPLICAND = 0 


TION THE PARITIAL PRODUCT AND 


HE MULTIPLICAND 


: HAS 


G0 T 
::YES- 


és 


mm 


PUT THE 


eho OF THE MULTIPLICAND BEEN DONE? 
OULD PRODUCT BE NEGATIVE? 


0 EXIT IF_NO 
“SO MAKE IT SO 


;;CLEAR SIGN INFO. OFF OF STACK 
PRODUCT ON THE STACK (MSB’S) 


$ ed dade De eae ee a eee 


; "_SAVREG 
5 AUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


RO ON STACK 
R1 ON STACK 
Rs ON ataek 
ON STACK 
RY ON STACK 
RS ON STACK 
OF MAIN FLOW 
PC OF MAIN FLOW 
PS OF CALL 
PC OF CALL 





eee + 
' 


Fre 


6544 


UNIBUS RK& DRIVE DIAGNOSTIC PART 3 
DZR6JB.CMB O3-NOV-76 15:31 


034026 


000004 000002 


MACY11 27(1006) 


SRESREG: 
Moy (SP }+, 28S) 
MOV (SP) +, 20(5P) 
MOV (SP) +/20(5P) 
MOV —- (SP) +’ 20(SP) 
MOY —- (SP)4/RS 
MOV (SP) 47 RY 
MOV (SP)4/R3 
MOV —« (SP)+; Re 
MOV  (SP)4°RI 
MOV  (SP)+;RO 


RTI 
-SBTTL TRAP DECODER 





O3-NOV-76 15:34 PAGE 128 
SAVE AND RESTORE RO-RS ROUTINES 


praTG ROUTINE WILL PICKUP THE COMER BYTE OF THE “TRAP” INGTRUCTL 


t ETHIS ROUTINE WILL PICKUP THe LOWER BYTE OF TION 
us TO INDEX H THE TRAP TABLE FOR THE STARTING JEDORESS 


ie AND 


HE “TRAP” INSTRU 


E IT INDEX THROUG 
:#0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 


:#G0 TO THAT ROUTINE. 


STRAP: MOV RO,-(SP) 
MOV et (SP), RO 
TST (RO)’ 
MOVB (RO), RO 
ASL R 
MOV $TRPAD(RO) ,RO 
RTS RO 


3; SAVE _RO 
3;GET TRAP 4s ees 
5 BORK BY § 
;GET RIGHT BYTE OF TRAP 
; ;POSITION FOR INDEXING 
TO TABL 


x 
$360 TO ROUTINE 


;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


(SP), -(SP) 


STRAP2: MOV 
MOV 4(SP} ,2(SP) 


-SBTTL TRAP TABLE 


;;MOVE THE PC DOWN 
;;MOVE THE PSW DOWN 
;;RESTORE THE poy 


;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


t%BY THE “TRAP” INSTRUCTION. 
; ROUTINE 
$TRPAD: STRAP2 
Heres 
iI EALL=TYPOs 
*CALL=TYPON 
tt Carc=TYPDS 
o ; ;CALL=GTSWR 
; CALL=CKSWR 


ScAVREG + CALL SSAVREG 


. TRAP+6( 104406) 


TRAP+1(104401) TTY TYPEOUT ROUTINE 
T VE OCTAL NUMBER He My LEADING ZEROS) 
TYPE OCTAL epee i Ne BER LOST CALL 1" 


TYPE BECINAL NU NUMBER y eurtn 
GET SOFT-SWR SETTING 


vest ee, CHANGE IN SOFT-SWR 
)T YrelIN SriNg HARACTER ROUTINE 
ee Hy. "We " TRI 
) 


TRAP+4 ( 104404) 
TRAP+5 ( 10440S) 
TRAP+7( 104407) 


NUMBER FROM TTY 
at RU-RS "Routt NE 





r ew ee 
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DZ2R6JB8.CMB O3-NOV-76 15:31 TRAP TABLE 


6697 O34056 033734 SRESREG :;CALL=RESREG TRAP+14(104414) RESTORE RO-RS ROUTINE 


peas 034060 027360 SCOP1$ ;;CALL=SCOPI TRAP+15( 104415) INTERNAL LOOP ON ERROR 


en a ee 2 eet re a eee eee 
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OZR6JB.CMB O3-NOV-76 15:31 TRAP TABLE 





ero, .SBTTL SERVICE MESSAGES 
sae 
6704 O34C62 O0S01S5 047125 O41111 MSGi: .ASCII <CR><LF>/UNIBUS RVO6 DRIVE DIAGNOSTIC/ 
6705 paieeD 051525 oe103 baal ts 
ero? reat Ge0108 Soy Baaedl 
5 ll2 7516 OS2le3 O41S11 
e705 aie eg 050011 051101 .ASCII <CR><LF>Z PART 3/ 
671 paatse bie puente 044501 -ASCII <CR><LF>/MAINDEC-11-DZREJ-B-PB/<CR><LF> 
67le 034136 O42116 041505 030455 
671 144 026461 055104 O331ee2 
peid 16 beeat Oe6S02 041120 
6716 162 1S 025011 o25052 -ASCII <CR><LFDZ ##2%% CAUTION #4#%#/<CR><LFD 
6717 034170 O2e50S2 041440 052501 
ects rae 044524 9047117 been 
67 eae Oosuis js} Osi ll -ASCII <CR><LF>/THIS PROGRAM SHOULD BE HALTED ONLY AT THE END/ 
6721 1107 
6722 O34226 O46501 051440 047510 
6723 O34234 046125 020104 040 
6724 O34e42 O2010S 040510 052114 
6725 034250 O4210S 047440 116 
67 034256 pool sh posit} 052040 
67 034264 04251 2440 042116 
67 55 15. ratty O44 -ASCII <CR><LF>/OF A PASS, OTHERWISE HEADERS WRITTEN ON THE/ 
67 1501 O26le 
67 0441 1105 
6731 034314 O44S27 O42523 O44040 
p73 034330 eet oy pesess 
6734 934336 O04 igs 74 pBstie 
| 735 344 044124 of 
6736 347 15 O420le 051511 -ASCII <CR><LF>/DISK CARTRIDGE MAY BE LEFT IN AN UNFORMATTED STATE/<CR><LF> 
6737 034354 020113 040503 OSele2 
6738 034362 043504 020105 
264 370 04051 131 042502 
6 34376 O04 043105 020124 
6741 O34404 TAT pie 020116 
6742 O34412 O471 7506 O46S2e 
6743 0344 052101 O42524 020104 
6744 O344 OSele3 052101 o06505 
| 6745 034434 01 
x 01 aah 1514 ASCII <CR><LF>/ALSO, DRIVES TO BE TESTED SHOULD HAVE: /<CR><LF> 
74 42 02611 404 44S OD 
6748 O34450 O4eSe6 O2012e3 04752 
| 6749 O344S6 O41040 O20105 O42e5e4 
| Brey Gaaied isles micils sig 
| bree O3s00 bie10 Buses | DoRv2 
6754 034507 015 oO40412e o200S56 ASCII <CR><LF>/A. HEADS MANUALLY LOADED/ 
| 6755 034514 042510 O42101 020123 





~ 
Le ] 
_ 
fat] 
; 5 
~ w 
te hi. 
= ~ =< HH 
bends ta) a ~ 
& ¢ - be oe 
oO r z a - 
if _ Tr o 
> a NN rrr} 
5 % ¥ > 
Oo 2 = 
‘ = ne 
o fa a. ~ — 
tal ~ © a 2 
- a — ua ~~ x e 
o ta a - 8 oO Q a 
[vv _4 oO w - vv) ire ta 
4 om 4 tal - < bw = ~ 
~ tal az =] — o uw > 
td | w wm | oO uJ w ee 
_ ton 7 vy) mn = wm 
= ee . . o 8|6Oof Z 
- a id - wm Oo be « 
= 4 — - wn = 
- uJ tal ta C) ~ w = 
mo Qe = > oO ua w a Oo 
bam ls) ra a x % a. a ~ 3° 
ras) ; & S fe 
wo ce ] Qo Qa Qa m a - - 
tf ~“ a“ ~“ 7 ~“ “N ~“ ~ a“ 
i ~ ~ “~ ~ ~ ~ ~ ~ fsa 
> & uw uw a &. uu ta. uu 
© — -4s 4 — — 4 — — - 
Za ~ ~ ~~ ~ ~~ ~ wv ~ 
t ~ ~ ~ ~ n~ ~ ~ ~ ~ 
~ a ge Qe Qa a ay a ae ae 
a ] a YQ oO oO o OQ oO Lo oO 
w ~ ~ ~ ~ ~~ ~ ~ ~ 
w 
ot -< oe oe on) 4 o-* ot eel oa 
cw © = QQ Q Yo YQ o ao oOo 
t. = 4 
bat) 
ta 
et) 
-ar-@ ae 
~~ > 
Om 
«Kiss 
zw 


as Fixe feed Gere tea oe =a & eee — 
Ces Se ee Sey Be 

eae iaatara 
IEEE eo TEITTPEEEESEs Laces mea easinapmanana 


aaa ter std a 


SSR 
ai te 





bk 


6 
67 


D:0.0.0.0.0.0.000 000000 D Oddi Oddi 


oes 





om rece ee ie er ae. ore er a er ne ne = te rm em tee 


2 
5 
z 
2 


N“ 


SOUT Tyr eons ng a eases 


gets iene tucson Serene 





Ba 
5 § 


o~ 

eo Ce 
~- 
on 


A 


wR 
~ 


2 


2828 


ett oe le 
-— 


~ 


> ie ue 
SRERS 


o- 


—O 
b= bb 


2 
a 


RE 


i 


—-O 
he 


sgnees 


“ul 


é 


an 


z 
= 
os 
- 
<£ 


g ; Bea ge 
She at ahtiiss 
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SERVICE MESSAGES 


0 
MSGE: 


MSG?: 


MSG8: 


MSGS: 


MSG14: 


MSGIS: 
MSGI6: 


MSG17: 





-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCII 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 
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(CR><LF>/INTERRUPT OCCURRED AT PC=/ 


(CR><LF>/DRIVE O WILL NOT BE TESTED/ 


(CR><LF>/INTERLOCKS TEST/<CR><LF> 


(CR><LF>/REMOVE UNIT SELECT PLUG/ 


(CR><LF><LF>/WILL TEST ORIVES:/ 


(CR><LF><LF>/POWER LP RESTART TO TEST 1/<CR><LF> 


/NONE/<CR> <LF> 
«(CR><LF>/NO L OR P CLOCKS PRESENT/ 


(CR><LF>/ALL TIMING TESTS BYPASSED/ 


(CR <LF>/BYPASSING DRIVE / 


(CR><LF><LF>/DRIVE / 
(CR><LF>/DRIVE SERIAL NO. / 


(CR><LF>/CARTRIOGE SERIAL NO. / 


2 
5 
2 
o 
2 


A LT EE CCL LLL LL LLL LLL ELEC CEE LLL LES 


— <—— 

















o 
ig 
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15:31 SERVICE MESSAGES 
1 71 1 MSGi8: .ASCIZ <CR<LF>/UNIT SELECT PLUG TEST/<CR><LF> 


é 
BA 
S 


S 
aa 


gat 
RIPP RP 
REN Bas 
e 


1 


ee 


peels MSG19: .ASCIZ <CR><LF>/PORT SELECTION TESTS/<CR><LF> 


MSG20: .ASCIZ <CR><LF>/RUN-STOP SWITCH TEST/<CR><LF> 


R 
R 
E 
i 


T= 


OYE04O MSG21: .ASCIZ <CR><LF>/AC LOW DETECTION TEST-PART 1/<CR><LF> 


7117 MSG22: .ASCIZ <CR><LF>/NON-EXECUTABLE FUNCTION (NXF) DETECTION TEST/<CR><LF> 


eecroar eon 
#3 


Sie eee! 


— 
a 
i 


: 


.J0U5U 


rae 


: 
3 
ez 
R 


MSG23: .ASCIZ <CR><LF>/NO CLOCK INTERRUPTS PRESENT, ABORTING TIMING TESTS/ 


SO ere 


nw 
Re 
RRR ERORRRNORORORTRE 
ESRI GOLESR ESS 
Ha 


i 
eae 


E 


Sea 
eS 
Ne 


es 


6906 

Pane Bie 053412 tee5 MSG24: .ASCIZ <CR><LF>/WRITE LOCK TEST/<CR><LF> 
69093 11 123 

6910 1 

691 os 103 MSG2S: .ASCIZ / MICRO SECONDS/ 

691 02011 


peat MSG26: .ASCIZ <CR><LF>/AC LOW DETECTION TEST-PART 2/<CR><LF> 
711 


1 
Gest MSG27: .ASCIZ <CR><LF><LF>/ALL DRIVES TESTED/<CR><LF><LF> 
1 
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DoRETB.Cne S-ROVore lef SERVICE MESSAGES 






: 
: 


~ASCIZ <CR><LF>/VERIFY SPINDLE DOES NOT START & HEADS DO NOT LOAD/<CR><LF> 


6324 036322 000 4 
p Os tes re MSG28: .ASCIZ <CR><LF>/MULTIPLE DRIVE DETECTION TEST/<CR><LF> 
& 1 lll 105 
- §928 244 Bat O42Se4 052103 
6329 036352 7511 20116 O42eSe4 
& peesey Use} 00501 000 
63931 15 0500 O4¥2514 MSG29: .ASCIZ <CR><LF>/PLEASE WAIT, HEADS BEING LOADED/<CR><LF> 
6932 1501 020105 7 
6333 lli 4 2510 
6334 101 1 
6 4 iM 1 14 
i oe 
4 015 MSG30: .ASCIZ <CR><LF>/VERIFY DOOR CAN NOW BE OPENED 8 LEAVE IT OPEN/<CR><LF> 

Base Saedse ousii? pearaT | pareos 
6940 pet 051117 pale 047101 
6941 047040 053517 041040 
fas 036460 0201 050117 047105 
Se ae 
ENS 71 
Eou5 1 
Peis peels OOSO1IS MSG31: .ASCIZ <CR><LF>7?/<CR><LF> 
6949 036521 O46SOS MSG32: .ASCIZ <CR><LF>/REMOVE DISK PACK 8 CLOSE DOOR/ 
£950 een 
69S ye 
& 0461 
bacy cleat 
69S5 1 OS010S MSG33: .ASCIZ <CR><LF>/DEPRESS *RUN-STOP’ SWITCH TO ’RUN’ WHILE DOOR OPEN/ 
6556 023440 
6957 052123 
6958 
6959 3 
6360 1 
£961 lll 
6962 beat? 
6963 116 

ei 

704 


REE 

— 

oO 
oro 


ty 


S883 
BERR 
Solas 





card 10 MSG35: .ASCIZ ‘CR><LF>/DEPRESS 'RUN-STOP’ SWITCH TO RUN’ WHILE CARTRIDGE REMOVED/ 
ue tee 

6 764 7524 

6978 036772 023516 

6979 037000 042514 


wee ee eee en ee ne = er re ne een 6 er re ee eR eS RES = ES OS 


i 
| 
i 
! 
j 


a ee en ee ne OO En a 


me ee wees + _—- ° oo . - — 
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£990 03700 Ou¥4n 051101 051124 
535 me 0S3117 O4210S 
p 18 O844l2 OSISI&6 MSG3E: .ASCIZ 
goes 0511 020124 4YSO4 
3 Gee O10 
& 1 l 
6989 04 1 3440 
6389 48 0S2123 
6390 . ll 7524 
B25 3218 
& 14 
6553 04 7517 
Poon , ll MSG37 ASCIZ 
E Big ee | | 
693938 Boor es 1 7105 
eoag 71l1 1S1 
7000 1 
at : 711 MSG28: .ASCII 
7003 sate 042514 
7004 4 14 
7005 1 ll 
roe ae ig os 
1 ll 
7008 1e4 020105 -ASCIZ 
7003 + 1 7 
7010 5, ll 114 
at J. 1 117 
701 1K 1e4 1 125 
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<CR><LF>/ INSERT DISK PACK, DEPRESS "RUN-STOP*® TO ’RUN’ & CLOSE DOOR/ 


«CR><LF>/DEPRESS SPACE BAR WHEN FINISHED/<CR><LF> 


(CR) (LF>/INSERT UNIT SELECT PLUGS, IN ANY ORDER/ 


(CR><LF>/THE PROGRAM WILL ECHO THE UNIT SELECT PLUG NUMBER/<CR><LF> 


(CR><LF>/DEPRESS CONTROL-C TO EXIT TEST/<CR><LF> 


<CR><LF>/VOLUME VALID NOT SET/ 


(OR><LF>/MPE SURE ORIGINAL UNIT SELECT PLUG IS INSERTED/<CR><LF> 








BORE. ENB OP*YS-RUGSHEPHET ah 2 


01S O420le 


SaSPeRAVARERSI ISAS IA eR eRR TER RUNNER Seta a toes case 


Fn rn 
i 
' 
‘ 
‘ 





: 


Geer Span saiasascunetver eRe 


z 
a 


SRE 


aa 


ge --—C) 
2 


— 


SR 


oe 


i 





1 


VB 


ld 








051505 


= - oe I 
N jo m— ££OPON 


Bee steers 





MSG41: 


MSG4e: 


MSG43: 


MSG44: 


Gll 
HBG A-27(1006). O3-NOV-76 15:34 PAGE 136 


-HSCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIT 


-ASCIT 
















(CR><LF>/DESELECT PORT IN USE % SELECT OPPOSITE PORT/<CR><LF> 


(CR) <LF>/DESELECT WRONG PORT & SELECT CORRECT PORT/<CR><LF> 


<CR><LF>/DESELECT BOTH PORTS/<CR><LF> 
<CR><LF>/SELECT CORRECT PORT/<CR><LF> 


<CR><LF>/CORRECT PORT NOT SELECTED, TRY AGAIN/<CR><LF> 


(CR><LF>/DO A MANUAL DRIVE LOAD/ 


(CR><LF>/THE SPINDLE SHOULD START AND THE "STOP’ INDICATOR SHOULD GO OFF 


<CR><LF>/*READY’ SHOULD GO ON IN APPROX. 1 MIN/<CR><LF> 
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(CR><LF>/VERIFY DOOR CANNOT BE OPENED (DO NCT FORCE)/<CR><LF> 


(CR><LF>/DEPRESS THE ’RUN-STOP’ SWITCH TO ’STOP’/ 
<CR><LF>/VERIFY THE HEADS UNLOAD, THE ’READY’ LIGHT GOES OFF/ 


<(CR><LF>/& THE *STOP’ LIGHT GOES ON/<CR><LF> 
(CR><LF>/TURN OFF AC POWER FROM BEHIND THE RKO6G/<CR><LF> 
<(CR><LF>/MOMENTARILY REMOVE 8 INSERT UNIT SELECT PLUG/ 


(CR><LF>/TO RESET VOLUME VALID/<CR><LF> 


(CR><LF>/SWITCH AC POWER BACK ON/ 
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(CR><LF>/DISABLE THE WRITE LOCK SWITCH, VERIFY LIGHT GOES OFF/<CR><LF> 
(CR><LF>/ENABLE THE WRITE LOCK SWITCH, VERIFY LIGHT GOES ON/<CR><LF> 


<CR><L©>/0R CONTROL-C TO BYPASS ENTIRE TEST/<CR><LF> 
(CR><LF>/EXIT TEST WITH ORIGINAL UNIT SELECT PLUG NO. / 


(CR><LF>/PROGRAM WILL BYPASS THE WRITE LOCK TEST/ 


(CR><LF>/ALIGNMENT CARTRIDGE USED/ 
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(CR><LF>/INSERT SAME UNIT SELECT PLUG NUMBER IN ANY 2 DRIVES TO BE TESTE 
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(CR><LF>/VERIFY BATTERY RETRACT FUNCTIONAL/<CR><LF> 
(CR><LF>/INSERT CORRECT UNIT SELECT PLUGS & LOAD HEADS/ 
(CR><LF>/MULTIPLE DRIVES FOUND ON DRIVE NO. / 


(CR><LF>/ON PREVIOUS 2 DRIVES/<CR><LF> 
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(CR><LF>/BYPASSING MULT. DRIVE SELECT TEST/ 


<(CR><LF>/ONLY 1 DRIVE PRESENT/<CR><LF> 


<CR><LF>/DEPRESS SPACE BAR TO DO ANOTHER 2 DRIVES/ 


<CR><LF>/0R CONRTOL-C TO EXIT TEST/ 


(CR><LF>/CINSERT CORRECT UNIT SELECT PLUGS BEFORE EXITING)/<CR><LF> 


(CR <LF>/THE SECOND PORTION OF THIS TEST IS TEMPORARILY BYPASSED/ 


(CR><LF>/SEE COMMENTS IN THE LISTING/<CR><LF> 


(CR><LF>/DEPRESS ’RUN-STOP’ SWITCH TO ’STOP’/ 
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SERVICE MESSAGES 


MSGEEB: 


MSG67: 


MSGES: 


MSGE9: 


MSG70: 


MSG71: 


«ASCII <CR><LF>/DEPRESS "RUN-STOP’ SWITCH TO ’RUN’/ 


-ASCIZ <CR><LF>/& DEPRESS SPACE WHEN 'READY’ LIGHT GOES ON/<CR><LF> 


-ASCIZ <CR><LF>/DESELECT PORT SWITCH ON ALL OTHER DRIVES/<CR><LF> 


-ASCIZ <CR><LF>/VERIFY BOTH DRIVES UNLOADED/<CR><LF> 


-ASCIZ <CR><LF>/DEPRESS SPACE WHEN 'READY’ LIGHT GOES ON/<CR><LF> 


-ASCIZ <CR><LF>/VERIFY HEADS LOAD/<CR><LF> 


-ASCIZ ‘<CR><LF>/SELECT CORRECT PORT SWITCH ON ALL OTHER DRIVES/<CR><LF> 


-SBTTL ERROR MESSAGES 
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-ASCIZ <CR><LF>/ERROR, ONLY O THRU 7 ALLOWED, TRY AGAIN/<CR><LF> 
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-UNEXPECTED TIME OUT AT PC=/ 


-UNEXPECTED INTERRUPT AT PC=/ 


(CR><LF>/QBORT TESTS.. 
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7ACLO NOT CLEARED IN RKMR2/ 
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“WRITE LOCK IN RKMR2 NOT CLEARED/ 
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/WRITE CHECK ERROR SET IN RKCS2/ 
/WRITE CHECK COMMAND NOT FUNCTIONING/ 


/RTZ NOT SET IN RKMR2/ 
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-ASCIZ 


-ASCIZ 


SSAGE 


EME6: 
EMEB: 
EN74: 
EMBO: 
EMB1: 


EMES: 


oe 
Sem EEE 
SED D DEERE ceeeEe 


PPPPTE ETERS E STREETERS AES 


RERRRRRRRRRRRRRRRR RRR RRR RRERE 


ee sn ee ee ee e+ oe ae Ce 
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BER RR er eNe 
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REERERERRR 
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: 
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-HSCIZ /SHOULD BE/ 


PY py) 
HF} HF a 
oO tes Yo ta 
x a x > 
va rs x 2 
“e ry 
3 3 3 a Fr] Fs} 
x 4 > a. = 
Qa Qe bee So a 
= & « - 
o o uw 
© ° os ~ re 8 a 
4 a 2 a a x 
= ra = ; = *= 
# f a z 4 
oe a - w w 
ea "ea Pe ¢ 
= ra x a = ica DS x 
Pv. S 3 oO ww oo 
oO z = > z 
oO a fon ta - ] an) 
& S g S “4 g § 5 
“M ~ 4 a So So ind So 
x x So = aa a vm oe 
z a Q > Oo > 
ree) 5 wi 4 « oa 
rue) & ra) va ry) a. — 
ie = ve 4 & & we Ss 
x x x — « ua uw = 
= ra a - o = — = 
w an Qa = 
ry] i) i] a o~ = ox na 
e e g 5 S = 8 8 
x x ria ME ve oS & = & 
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N N N N "oN N N N N 
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ese 


a 
Ace 


fae aa ssl gieccgusefuas sitaneetar’ Bilas 
a= age ee neueae aa ui esateartss soastiecee ree 

Co 
eee ee 


PRRPRRERPR RPE RE RRE RRP ERPRERERRPEREERELRELER EPAPER RE 


a a es en ee ee ee a ees 
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re Bie ot i S > 5 lp = a 
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Pgs Soesvae’ pooManaawonees gesasares gee GeESSOGRe ae 
PerRs sesh SSSaRserakserorsaeeias Poens peared Z25Ne 
Zz gaseetetase geek CURE gaze eee Bzze Sez auee Lessee 


— Y 3:57; in = ABR eS eS SRR eS 
BSE RRR REG aaa Anan no 7-2 er AER ANA EMM AREY? 


a a a ee = 
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= a > ] 
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mm a ee eee 





a ieee 3 


UNI RKE DRIVE DIAGNOST 
a O3-NOV-76 15: 


OZR6JB. CMB 


/AFTER WRITE DATA WITH VOLUME VALID=0/ 


~ ~ 

x Zz 
Teas wepEoe Benda 
Gaus Gaghos gases 
Bae GaGSeS BasNhe 
Gre? tadata 
if: SoSass peesae 
FONG ST SeSs 
iB Zi ae eae 
homageaaaaat: 
i reiee 
an iceae cine 


“AFTER SEEK COMMAND WITH MOVEMENT/ 


Scan 


T -t-1-4 
.O-s 


24645 
S82 80h RRosROS 


OO kk nd nd md wd 4 wh 


Raa a 


-ASCIZ /AFTER WRITE LOCK SWITCH DISABLED/ 


DH48: 


uos = 


yo ee 


ats 


mir iintsie 


S55 


/AFTER WRITE LOCK SWITCH ENABLED/ 


-ASCIZ 


8 suc DH4S: 
2524 


ae a 


ars 


~ASCIZ /AFTER WRITING WITH WRITE LOCK ENABLED/ 


-ASCIZ /AFTER SEEK TO SELF COMMAND/ 


/WITH INTENTIONAL MISCOMPARE/ 


2 Ss 
Ease Saee Ff 
Beuure Bese 
BsHenz 28 


Eatin _! 2 


SESUPRRE 


pes 


3S ts a2 B28 


Spc acca 


BD BE ee SRAM UA CUR MMSE soe FF FF FF UD 


/DURING OFFSET COMMAND/ 


-ASCIZ 


Wr. 
ae hee aed 
“iN 


Baas 


Sey 
ZBassasesaoaseeues 


—t 
Se-33 


«ASCIZ /AT MAX POSITIVE OFFSET/ 


“AT MAX NEGATIVE OFFSET/ 


-ASCIZ 


DHSS: 


mn —<——~OmM 


SiS 


Ste 


SF—65% 


Nam 


YS Vani 


oeeeee 
hm 
SE6S46S 


uw 
wm 


saath iam teh int ieee tam Ree lee ied ae Sete Laem han Doe ham hee Lame eam kane Lam tte, Ream tenet Ream ame Rane Kem Rae Reon Neen eee Ree eet Roe ee Roe re re ee ee ee ee oe Coe Lee hae lee lem heen bem ham bee.) 
DDOMDMOO OMMMMWDMWOMMOMMOMOOMOMOMMDOWOMMWOWODODDOMOMMONDMDMVMDWMMOMMOWOOWOWMMOOOMWOMOMOMA 
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um ee GUN peut pee 


pices ifs guee DHS6: .ASCIZ /RKMR2 RKMRS RKOC CYL & HEADER WORD 0/ 


Bi 
358 
one 


8 446 
8 053476 O45 1 041411 
8 04 Bigsos pissy tea 
: Ree He 
8 053527 101 052106 DHS7: .ASCIZ /AFTER WRITE COMMAND WITH OFFSET/ 
g 053440 a ecs 
3 42 041440 posed 40515 
3550 O4el ip S440 OSell1 
8 Resid 04311 
8 053564 1 
8 053567 1 052101 020101 DHS8: .ASCIZ /DATA WAS SHOULD BE/ 
8 053574 O40Se7 Oe0le hae 
053602 047510 O461eS Oe0l ; 
053610 O42S0e 000 
053613 101 052106 OS5110S OHS9: .ASCIZ /AFTER DRIVE SELECT COMMAND WITH EVEN PARITY/ 
053620 O4e040 O44See O4eSe6b 
440 046105 041505 
Oe0124 O47503 O46515 
053642 047101 020104 044527 
053650 O4412e4% O4e440 O42Se6 
053656 020116 ale. O44S2e 


053664 054524 
7 DHE0: .ASCIZ /AFTER WRITE LOCK ENABLED DURING CONTINUOUS WRITING/ 


aay 
? 

8 

R229R 

S=NS 

a 

3 


a 

ane 
atatatetetai tara tote 

R 

dy 

N 


R 

: 

22 
nee 


462 DH61: .ASCII /RKMR2 RKMR3 RKCS1 RKCS2 RKDA WORD EXPECTED/ 


at 
as 
3 
an 
RN 

BARAT 


BBVA LOOK SSS VRRLORH—BIa od 2a Sb uem eww oO 
R 
R 


bb = 6 b= b= b= Fb = = 0-2 bs 0 0 0 0 = 0 Bb $b be hh bo se = 2 


WODMOOOMMOMOMOOWWOWODWOWMWMWOWOWMMOWOWDOWOM®m 
R 
<= 
Oo 
— 
o 
nA 
_ 
-_ 
-~ 
™N 

ze 
Tw 
—ul 
BS 
a 
= 
oOo 
ul 


rote 004411 sASCIZ <CR><LF>Z 2 WRL WAS WORD/ 


ss 
a959 
i 

z 





031122 OHbe2: .ASCIT /RKMR2 RKMR3 RKCS1 RKCS2 RKDA WORD EXPECTED/ 





Benaean 
: 


oo000- 
MWUWWWG pk Hae 
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Ww 
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8207 
| o4ese4 
















-SBTTL ERROR OUTPUT DATA 


EVEN 
$ 426 DTI: STESTN, SERRPC HMR, HMRS, HER, HDS, HCS1,HCS2, SBMR2, SBMR3 


boetie OTe: STESTN, SERRPC,HMR2,HMR3, HER, HDS, HCS1,HCS2, HASOF 
00111 peace DT3: STESTN, SERRPC,HMRe,HMRS,HCS1,HCS2, STNPS,WD1,WD2 


1 4e6 DOTY: STESTN, SERRPC,,HMR2,HMR3, HDC, FRCYL, TOCYL,CALDIF 
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821 os4)] 15 O0044! 004411 eRSCII <CRYCLFD BEFORE WAS WORD / 
e213 peu is3 ip Ps305 OS1117 . 
Gels Gevise Gowege Suisse? Oovses 

aci® 41 ] 11 OO4411 eASCIZ <CR«LFD WRLZ 
821 4156 it pou 

e518 ] Be 13 04. Oe0l22 ODHE3: -ASCIZ /AFTER WRITE LOCK ENABLED FROM AC FRILUREY 
esis Gevir0 Seller Seciti fe015 

2 eae ie Baelde Bue108 

E22 1501 fd 044501 

226 fe 000 

Bess cee l pecie 051105 ODH64: -ASCIZ /AFTER MDS DETECTED IN RKCS27 

aces pa oi iS04 O42040 

8228 peuses hs mae tay 

1 

Ses Gese Pee LD ge ee 

8231 054274 ei 1S2e2 

Be32 rays 1 8 0 

Boss 1 114 

Gen Geiss Geses Goole: Geliso 

acme aged 04: i? oestlt patel DHEE: .ASCIZ /TEST NO. TRAP PC/ 

asa ease ae ae " & oe DHE7: -ASCIZ /AFTER TIMEOUT TO ENABLE WRITE LOCK/ 

8241 OS4366 Pes! raat 02011 

ce DIN DiI a Giesl4 

bo44 5 113 

8245 13 eyes it ees DHEE: -ASCIZ /RKMRE2 RKMR3 RKCS] RKCS2 # RKDC RKDA/ 
ce cs fee Bil fea 

Be48 051 oo4462 

e229 O4SSee 041504 051011 

6250 OS44S4 O42113 000101 

BeS1 

E2o2 

eiS4 

cess 
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el 

Be63 

Bebe 
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ee ES A ee 


2 
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0 b—2 & 2 2 &— OO 2 he 


W000 NG?U1 £6 Gre 
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s gi aiatss sues sigtes geek : 


Ba 
ge 
48 
i 
} tp 
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MACY11 27(1006)_ O3-NOV-76 15:34 PAGE 158 
ERROR OUTPUT DATA 


DTS: 


OTb: 


2&6 DT?7: 


OT8: 


OTS: 


OT10: 


~SBTTL 


OF i: 


OFe: 


DF3: 


DF4: 


DFS: 


OF 6: 


3 
DH1 
-BYTE 2,0 


STESTN, SERRPC,HMR2,HMR3, HER, HOS, HDA,HCS1,HCS2, SENR2, SOMR3 


STESTN, ;-RAPPC 
STESTN, SERRPC,HMR2,HMR3, HOA, WOCNT ,HOWD, TEMP: 


STESTN, SERRPC, HMR, HMRS,HOC, TOCYL,FRCYL, CALDIF 
STESTN, SERRPC ,HMR2,HMRS, HDC, TOCYL,RHTAB 


STESTN, SERRPC HMR, HMRS,HCS1,HCS2, HDC, HDA 


ERROR DATA FORMATS 


2 
-BYTE 2,0 
-BYTE 6,0 


3 

-BYTE 2,0 
DHe 

-BYTE 6,0 
-BYTE 1,0 


3 
sme 0,0 


BYTE 2,0 
-BYTE 7,0 


-BYTE 7,0 
1 
-BYTE 2,0 


3 

-BYTE 0,0 
Hl 

-BYTE 2,0 
-BYTE 6,0 
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DF7 
OFS 
OFS: 
DF 10 
OF 11 


888888 8888 888 8888 
De 
ot Lt UL 


I 


UN 





2 0 
uooa0o0o0 Oo 90.00 2 20 2 200 0 
on Or OKnNwowonwwo ond we 
“us ot ok 
<n 
af BiateiG Salelo Brave  SYSVas 
Oe Tr OO -O -O rT OQ OO - . © +5 . ae +3 . ° © 


2° eee ee 
uw wo om &™ Oo oOo 
Pe Pee Boe 
Bio Grete _ Ste 
rat} . anx@ Tr - 
r wn ~ 
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5 s 


88 888 88 


eee eeaeae eae 
RUE RNS! FPR 


Soe eee ee tated som oom ham koa en oe) att te 


Bias RS RS 


Sac a RRR URES SORA 


mr a a eens a a i ee ee 
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5 
z 
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3 





PE SEEREEEEE: 
NOUS We 
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PEPE PT PPPPILee 
RZSV-BSSYRRP'S 


sree @ 


ao 
sat 


Serres 
acaal 


aad 


Ba 
Bg 


=) 
YF 


IAG 


z 
es 
Ww 


ee 


8 
3 


ee he 
Re 
4 
sy 


‘Ye 


88888 


020000 
001114 
177400 


poreis 


001201 


0SS270 
001201 


001201 
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ERROR DATA FORMATS 


2,0 
6,0 
0,0 
2,0 


+ pemnnnsecedenethaenesencensunnnednenneueneseounaesnsosneansosse 


TTL TYPE es ROUTINE 
; ENTRY am PC, TYP ERR 


saREr URN RTS Pt 
:#THIS ROUTINE USES THE “ITEM CONTROL BYTE” (siTene) TO DETERMINE WHICH 
TO BE REPORTED. IT THEN USES THE “ TABLE” (SERRTS) 


;#ERROR IS 
i SENTRY 10 DEF INE WHAT INFORMATION IS TO BE REPORTED CONCERNING 
a ger > appease een ieee trate neers te: 


HPERR 


1§: 


11S: 


a - s 


*3a8783° 





#SW13, dSWR 


EMB, RO 
#177400, RO 
RO 


RO 
ee RO 
(RO)+,2$ 


3$ 
,» SCRLF 


~~ 
~ 
+ 
oa 
xz 
os 


B23 


33s 
7s 
3 


DB Oo-w-—— 
ow) 
Dw 


-_ 
£W) 
wn 


; INHIBIT ERROR TYPEOQUTS? 
EN NUMBER 
‘CLEAR SIGN EXTENSION 

FORM INDEX FOR ERROR TABLE 


‘Ger OE ROR ee ERROR ENTRY 


IF THERE ISN’T ONE 
iTYPE CARR CARRIAGE RETURN LINE FEED 
yl 


;EM POINTER GOES HE 
;GET DH POINTER 
;BRANCH IF THERE ISN’T ONE 


;GET & STORE NUMBER OF DATA WORDS 
BUMP PAST FORMAT WORD 

EST rae ANY pater FOR THIS HEADER 
sPUT FIR F Ret bata WORD. ON STACK 
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eat ee eet 18531 Nb Bates poe TINE 
404 oss464 TYPE SPACE2 TOPE SEPARATORS 
BR 11s 
439 055344 003431 ine 91 FS. sRORE Das? 
0 TYPE SCRLF , 
aa peeses eee BaASOS TST 2(R sONLY A OH IN THIS REQUEST? 
Bie 901404 BEQ 1S$ :YES- BRANCH BYPASS INDENT 
844 0051 : INDENT? 
B444 001 BNE 1S$ : NO-BRANCH 
B44S 055364 LO4At oss4e4 TYPE SPACE2 YES-TYPE SPACES 
Bye 055370 Ol 15$: MOV tRO)+, 168 :GET NEXT DH POINTER 
e444 0440 TYPE TYPE DH 
8448 ApocbS 16$: .WORD O :DH POINTER GOES HERE 
8449 105710 TSTB  —s- (RO) :TYPE A DT? 
8450 O55402 001 BNE 1$ : YES-BRANCH 
8451 055404 ooo002 RO tINCREMENT DF POINTER 
e452 ge5419 OOF non) a BR a >SEE IF END OF DF BLOCK 
Buea beeut ieee aa. Tae R ; INDENT? 
S4ss peeyse 001335 BNE 10S : NO-BRANCH 
B456 O55422 104401 oss464 17S: ‘TYPE SPACE2 *YES-TYPE SPACES . 
8457 055426 000732 BR 10s *LOOP : 
auc ae 2 neaead 010000 123500 wang: BeereG #SW12, ISWR SEE IF EXIT AFTER 20 ERRORS 
Bue : pot 7ae 901103 oo00024 ae 275.4 #20 ie IF HAVE 20 ERRORS 
Sues peeues 967004 BNE eas TN 
Suey DSSHeE DOIG? Sedoe itp PRORY IESE RESTORE. STACK 
BYES peeues 25$: RTS Be . 
8466 O55464 O20040 000 SPACE2: jASCI2/ fae 2 SPACES 
8467 ; ODT-11 -- VOOSA 
Ea Paap: 
8471 ; COPYRIGHT 1969, 1970, 1 
| BY7e ; DIGITAL EQUIPMENT CORPORATION 
8473 * MAYNARD, MASSACHUSETTS 01754 
8474 . ENABL : 
B475 055470 EVEN 
8476 055550 *=.460 
| 8477 000000 RO = “0 ; REGISTER 
oe ime ee eee 
| 8480 000003 R3 = , . 
| B4B1 009004 RY = “4 
ne So: 
| cP = % 
BYB4 PC = “7 
| BuBS 177776 ST = 177776 ;STATUS REGISTER 
| Bie? po0018 b.1vEC = 14 ;TRT VECTOR LOCATION 
| Su69 a ee SPRIORI TY WRSK = STATUS REGISTER 
| 8490 ieee TRT = 600003 TNC TRUCT 1eN 
_ eYSl 000006 RTT = 000006 iat INSTRUCTION 
} 





GoReYE.cNB -O8-NO 








omg c Sm: 3 


177716 


056636 


000016 
000014 


meet 6761006) 
TYPE ERROR ROUTINE 


3 RPstBes INT. AFTER 
OPERATIONS LEAVE IT 


6.ROB = 177562 
O.RCSR = 177560 
0.1OB = 177566 
0:TCSR = 177564 
: INITIALIZE ODT 
; USE 0.0DT FOR 
; USE 0.0DT 
: USE 0.0DT+4 TO RE-ENTER (I.E. 
8.007: BR 0. STRT 
O.ENTR: MOV si Re] TST 
MOV tVEC+2,ST 
MOV PC.0.UPC’ 
IMP 0.BK1 
6.STRT: MOV #0.URO, SP 
MOV SP.0.USP 
O.RST a O.RST I 
wee WERY SO. 
MOVB  0.PRI,R4 
RY 
R RY 
RORB RY 
MOVB  R4Y.ST 
O.RST1: JMP (Pe}+ 
BR 0.45 
MOV SRTI,O.RTIT 
0.45: CLRB  0.P 
MOV #0.STM, 0. TVEC#2 ; 
MOV #0. BRK, 0. TVEC 
BR 0. RALL 


} SPECIAL NAME HANDLER 
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ED SAFE 






BoINT IN, Ti iy sel sett TO zeRO, ao SEARCH 


RANDOMLY SE NO 
; BE USED EXCEPT FOR JSR’S AND THE CURRENT MEDORESS ¥F aru (CAD). 
3R ppt, BUFFER 
:T DATA BUFFER 
;T C/SR 


A_NORMAL ENTRY 
+2 TO RESTART ODT - WIPING OUT ALL BREAKPOINTS 


~ FAKE A BREAKPOINT) 
;NORMAL ENTRY 


: R AVE STATUS 
*SET UP LOCAL STATUS 
FAKE PC 


3 ET UP STACK 
ye SAVED STACK 
LEAR BREAKPOINT TABLES 


ae 


a ODT PRIORITY 
IFT 
; INTO 
POSITION 
beta IN STATUS 


;SET TO RTI IF 11720 OR /0S 
US WORD TO TRT VECTOR + 2 


; 

;STAT 

3PC_TO TRT VECTOR 

;CLEAR BREAKPOINT TABLES 


; DEPENDS UPON THE EXPLICIT ORDER OF THE TWO TABLES 0.TL AND 0.URO 


6.REGT: JSR 5,0.GET 
MOV #0. TL, R4 
O.RSP: CMPB ROD.(R4)+ 
BEQ 0. SP 
#0. TL+0.LG,R4 
0.RSP 
#177770,RO 
0.SP1: RM 
#0.URO,R4Y 
I Re 





;SPECIAL NAME, GET ONE MORE CHARACTER 
TABLE START ADDRESS 

31S THIS he CORRECT CHARACTER? 
iT TH E SEARCH DONE? 

t MASK gk OFF Oct OCTAL 


;GENERATE ADDRESS 
;SET FOUND FLAG 





Bs 5 ETE 2 
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TYPE bRBoR IN 

BR 0.SCAN ;GO0 FIND NEXT CHARACTER 
0.SP: ne tS chad ;CORRECT CONSTANT 


! @ HANDLER - OPEN INDEXED ON THE PC 


b.orpc: JSR «PC, 0. TCLS 
MOV RS Re, s CURRENT ADDRESS IN Re 
Bee 2. HOVE. ONE BIT TO CARRY 
BCS 0. ERR *ERROR IF ODD NUMBER 
Ret R2 jRESTORE WOR 
TS (Re)+ : INC T BY TWO 
MOV R2, RS UPDATE C 
IMP 0. bP2 GO FINISH UP 
: B HANDLER - SET AND REMOVE BREAKPOINTS 
§.8KPT: TST R2 IF NO NUMBER TYPED 
0. RALL : REMOVE BREAKPOINT. 
ASR R4 * CHECK IF ODD 
BCS 0.ERR JUMP IF ODD 
ASL RY "RESTORE ONE BIT 
HOV R440, ADRL :SET A BREAKPOINT 
O.RALL: MOV #0. TRTC,O.ADRL ;CLEAR BREAKPOINT 
BR 0.0CD 


COMMAND DECODER - ODT11 
REGISTERS RO-RY MAY BE USE 


III 


cn et ne ne eo ree ce nr eee re cme 
i 
i 





peesae 162704 057572 
055744 
904737 057502 
010502 
103421 
ppesa5 
010205 
000137 oste4e 
005702 
001406 
006204 
103410 
056004 006304 
OSE005 010437 osss4e 
peptls tae 057616 osss42 
056022 O00406 ae 
952705 00001 
012700 000077 
004537 057434 
004537 057534 
005004 
BOSE ppaeae 057356 
01 
BS HO ccoxr 
056070 re 8 177770 
056074 eed 
eat Boe 304 
BeeiOd bbe 
056106 000760 
Ose le teebet 057565 
Beeiie 001405 
056120 d05201 
OSble2 Oe0ie7 o00014 


D 
REGISTER RS WILL BE CONSIDERED SAFE 


ERR: BIS #1,RS sCLOSE EVERYTHING 
MOV #’) Ro : ? TO BE TYPED 
ISR 5,0-FTYP : OUTPUT ? 
0.0CD: JSR 5:0.CRLS *TYPE <CR><LF># 
0.0CDi: CLR R * RY CONTAINS THE CONVERTED OCTAL 
CLR R2 > Re IS THE NUMBER FOUND FLAG 
0.SCAN: JSR 5,0.GET >GET AC RETURN IN RO 
CMP #'0,R0 :COMPARE WITH ASCII O 
BHI 0.CLGL *CHECK LEGALITY IF NON-NUMERIC 
CMP #°7, RO :COMPARE WITH ASCII 7 
BLO 0.cLGL CHECK LEGALITY IF NOT OCTAL 
BIC #177770,RO ‘CONVERT TO BCD 
ASL RY > MAKE 
ASL RY : IN 
ASL RY : RY 
ADD RO,R4 ‘PACK THREE BITS IN RY 
INC Re *R2 HAS NUMERIC FLAG 
BR 0. SCAN > AND TRY AGAIN 
O.CLGL: CLR Ri CLEAR INDEX 
O:LGLI: CMPB  RO,O.LGCH(R1) 00 THE CODES MATCH? 
BEQ 0.LGL2 : JUMP IF YES 
INC Ri : SET INDEX FOR NEXT SEARCH 
CMP R1, #0.CLGT 15 THE SEARCH DONE? 





Se te en te ee me ce ee ee + ee oe eee en net ee cm ee err eee ee ep ee a ee ee ee © eee ee ee eee ee ee eee 


ene ‘tt ae oe 


| 8604 OS6126 103336 BHIS 0.ERR : OOPS! 
1 770 BR “LGLI 


Bb OBelse Boao O.LGL2: BeL ORI BCTTPLY. BY 
«BESO 134 000171 oS€140 IMP = QO.LGDR(RL) = $60. TO SeOPER ROUTINE 


056276 
056300 


UNIBUS RK& DRIVE DIAGNOSTIC PART 3 
0 CMB O3-NOV-76 15:31 


057502 
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TYPE ERROR ROUTINE 


é.LGOR: 9. URD “HRD ; / _ OPEN WORD 
: CARRIAGE RETURN CLOSE 
0. get : § REGISTER OPS 
0.60 : G GO TO ADDRESS K 
0.0P1 : <LF> MODIFY, CLOSE, OPEN NEXT 
O.ORPC ; © OPEN REL BTED INDEX - PC 
0.BACK ; ¢ OPEN PREVIOUS 
O.OFST : O OFFSET 
O:WSCH : W SEARCH WORD 
O.EFF ; E SEARCH EFFECTIVE ADDRESS 
O.BKPT ; 8 BREAKPOINTS 
O:PROC ; P PROCEED 
O.LGL = -0.LGDR ;LGL MUST EQUAL 2X CHLGT ALWAYS 
> PROCESS / - OPEN WORD 
O.WRD: TST R2 ;GET VALUE IF R2 IS NON-ZERO 
BEQ 0.WRDA *SKIP OTHERWISE 
MOV RY, RS : PUT VALUE IN CAD 
0.WRD1: ASR *MOVE ONE BIT TO CARRY 
0.ERR2: BCS 0.ERR JUMP IF ODD ADDRESS 
ASL *RESTORE THE CARRY BIT 
MOV aJRS,RO get CONTENT S OF WORD 
JSR 5 0: CADV GO GET AND T acad 
BR 0-DCD1 CK TO DEC 
0.WRDA: BIC i,RS 10 CLOSED BIT 
BR 0. etl *GO BACK TO MAIN-LINE 
: PROCESS CARRIAGE RETURN 
b.CRET: JSR PC,0. TCLS sCLOSE LOCATION 
BIS #1R5 i CLOSE EVERYTHING 
0.6cd N TO DECODER 
: PROCESS <LF>, OPEN NEXT WORD 
6.0P1: JSR PC,0.TCLS sCLOSE PRESENT CELL 
TST (R5)+ *GENERATE NEW ADDRESS 
0.0P2: JSR 5,0. CRLF 5 <CRD CLF 
MOV RS. RO "NUMBER TO TYPE 
JSR 5,0. CaDV ;_TYPE OUT ADDRESS 
MOV #'7-RO TYPE A / 
JSR S,0:FTYP 
BR 0: WRD1 GO PROCESS IT 


: PROCESS t, OPEN PREVIOUS WORD 
6.BACK: JSR PC,0.TCLS 

TST -( = (Re 3) 
! PROCESS 0, COMPUTE OFFSET 


8.0FST: ASR RS 
BCS 0.ERR2 


;GENERATE NEW ADDRESS 
GO DO THE REST 


;GET LOW ORDER BIT 
;ERROR IF CLOSED 
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Seance gree a a 

ee path tea pepe JSR ote YP ;TYBE ONE ATOR 

14 160504 SUB RS,R4 COMP UTE 
8668 056216 005304 DEC RY 
8669 bbe 005304 DEC RY ig BIT OFFSET 
8670 910400 MOV RY, RO ITYPE A 
8671 056324 b108 MOV RY’ Re “SAVE RY 
B72 056326 057272 JSR 5,6. CAD ?NUMBER IN RO - WORD MODE 
8673 OS633e O! MOV Re, RO 
8674 056334 006200 ASR RO :DIVIDE BY TWO 
€675 056336 103402 8CS 0.0F1 :BRANCH IF ODD 
8676 056340 004537 057272 JSR 5,0. CADV :NUMBER IN RO - BYTE MODE 
Bb 7. 056344 000137 O58044 0.0F1: IMP 0:DCD1 *ALL DONE 
8679 _» 3 SEARCHES - SMSK HAS THE MASK 
8680 : $MSK+2 HAS THE FWA 
8681 : SMSK+4 HAS THE LWA 






OZR6J8.CMB -NOV-76 
ae Gapaeg ponent 
056354 005001 
heats, 
OS6362 913702 OSSS36 
Bee3ss 








705 055534 
056374 OQe0e37? OSS540 


SSRASERSS BER PORES ERR 


3 
: 
: 
: 





0 hh ee 
WONWUI CWO 
e 
oO 
8 


BS 
z 
: 


177400 


8734 OS6532 105037 057555 
006204 


2 SS8sssssssysy 


UNIBUS RKE DRI pees! c. — 3 





Wet Esc 
b.EFF: ine 
O.WSCH: CLR 


BERR: EO 
my 


0.WDSe: CMP 


0.WDS3: Ene 


0.WOS4: TST 
O.EFF1: CMP 
B 


C 
BR 


b. 
ASR 
BCS 
ASL 


QUTIN 


} PROCESS G - GO 
GO:  CLRB 


.ERR 
O.MSK+2, Re 
SK, RS 
R2,0.MSK+4 


S82, Ro 


RO, 


0.P 
RY 
0.ERR2 
RY 
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;SET EFFECTIVE SEARCH 
;SET WORD SEARCH 


ae iP No OBYECT 
j HESK EMENT IT 
s THe SEARCH ALL DONE? 
rr OBJECT 
‘BRANCH IF EFFECTIVE SEARCH 
EXCLUSIVE OR 
: IS DONE 


Re R4Y, AND RS ARE SAFE 


(CR 
T READY 70 TYPE 
ty YPE ADDRESS 

i SLASH TO RO 


YPE IT 
at CONTENTS 
; TYPE corres 


{INCREMENT To NEXT CELL AND 


+X+2 
(X)+X+2=K? 
BRANCH H IF EQUAL 
;WIPE OUT EXTRANEOUS BITS 
;EXTEND SIGN 


sMULTIPLY BY TWO 
;ADD TWO 

;ADD PC 

;IS THE RESULT A PROPER REL. BRANCH? 


;DISALLOW PROCEED 

s CHECK LOW ORDER BIT 
ERROR IF ODD NUMBER 
;RESTORE WORD 
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BORE YB. ChE eet 12531 TYPE baBoR ROUTINE 
8738 OS6SY4Y 010437 OSS526 MOV R4, 0. UPC SET UP NEW PC 
bo ee ise Gee 77 HEP SAT aEPEREP 
eI Geese 1037 oe786s 055530 shape Bice Ot eT 0.UST T R807 
et pepesy Bisa rest 055546 MOV JO.ADRI,O.UIN SAVE INSTRUCTION 
8744 913777 OS7616 176732 MOV O.TRTC,@0.ADRI REPLACE WITH TRAP 
Bote 1 b1e600 0.602: MOV (SP)+,R0 RESTORE 
le 012601 MOV (SP)+°R1 : 
8747 056614 Ole60e MOV (SP)+'Re : THRU 
8748 056616 012603 MOV (SP)+'R3 
8749 056620 bieb04 MOV (SP)+)R4 ; 
§750 OSbbee 12605 MOV (SP)+°RS > RS 
8751 012606 MOV (SP)+'SP : AND SP 
8752 056626 Ol 46 055530 MOV 0.UST,-(SP) : AND STATUS 
8753 O5663e 013746 055526 MOV G:UPC}-(5P) - } 
Bro 056636 000006 O.RTIT: RTT :CHANGED TO RTI FOR 11/20 AND 70S 
8756 ; PROCESS P - PROCEED 
8757 : ONLY ALLOWED AFTER A BREAKPOINT 
ee OS6640 105737 057555 b.PROC: TSTB 0.P -CHECK LEGALITY OF PROCEED 
8760 OS6644 001645 BEQ 0.ERRI : 
876: OS6646 105037 os75S5 CLRB OOP :CLEAR PROCEED FLAG 
Brg 056652 005702 TST :WAS COUNT SPECIFIED? 
056654 001402 BEQ 0.PRI : 
8764 056656 010437 osss44 MOV R4,0.CT YES, PUT AWAY COUNT 
8765 112737 340 177776 O.PR1: MOVB  #0.STM.ST ‘FORCE HIGH PRIORITY 
8766 956670 37 057224 JSR 5,0.RStT ‘RESTORE TTY 
8767 056674 112737 000340 177776 0.C1: Move  4#0.STM,ST :SET HIGH PRIORITY 
8768 056702 105237 057554 INCB oOO«.T :SET T-BIT FLAG 
8769 056706 052737 000020 osss30 BIS #0.TBT,O.UST | :SET T-BIT 
B77 056714 BR 0.602 
| 8772 : BREAKPOINT HANDLER 
8773 : A TRT BREAKPOINT CAUSES 0.BRK TO BE ENTERED, WHICH SAVES 
8774 : VARIOUS ODDS AND ENDS, FINDS OUT IF THE BREAKPOINT WAS LEGAL, 
| 8775 : ND GIVES CONTROL TO THE COMMAND DECODER 
ae 056716 012637 oss 8.BRK: MOV (SP)+,0. UPC sPRIORITY IS 7 UPON ENTRY 
| 8778 056722 O1e637 055530 MOV (5P)+’0.UST :SAVE STATUS AND PC 
| 8779 056726 004037 057134 0.BK1: JSR 0,0.SYR “SAVE VARIOUS REGISTERS 
6780 O56 05737 057554 TSTB) sO: : HECK FOR T-BIT SET 
81 7 i311 BNE 0. TBIT : F SET 
| B782 O56 013777 OSSS46 176574 MOV O.UIN,3O.ADR1 ;REMOVE BREAKPOINTS 
| 83 056 105737 055 TSTB OO. PRI s CHECK IF PRIORITY 
056 1B R08 BPL 0.BKe ; I SAME AS USER PGM 
| 8785 056754 113705 osS5530 MOVB 0.UST,RS *PICK UP USER UST IF SO 
B78 b56760 b00407 BR 0. Bk *AND DON’T COMPUTE THE PRIORITY 
| 87 113705 osss3e 0.8K2: MOVB 0.PRI,RS ‘OTHERWISE PICK UP ACTUAL PRIORITY 
| 8788 b5b766 000257 CCC : 
| 8789 O56 106005 RORB RS *SHIFT LOW ORDER BITS 
| 8790 056772 106005 RORS RS : INTO awe 
8791 056774 106005 RORB RS : HIGH ORDER , 
8792 056776 106005 RORB RS : POSITION 
8793 057000 110537 177776 0.8K3: MOVB ‘PUT THE STATUS AWAY WHERE IT BELONGS 





ee 
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BOREYB.CMB  OS-NOV: baBoe Root Ine ‘ 


-NOV-76 15:31 TYPE OuT 

g734 057004 013705 osss26 Muy 0, UPC, RS Sareaty Tu IT OINTS TO THE TRT 
rae GBrb1e Oita? osssze ny Ao, Supe, GFR The utc 
Brag Bes 8 Borai? ‘ BEQ~SsiéO2« BC SUMP TE FOUN 
8799 057024 004537 oS7172 JSR 5,0.SVTT ‘SAVE TELETYPE STATUS 
9800 057030 537 057526 TSR 5°0.CRLF 
8801 12704 057560 MOV #0.80,R4 sERROR, NOTHING FOUND 
e503 pero Doses? besasy Wee #0 B01 ,R ;OUTPUT “BE” FOR BAD ENTRY 
8805 : oy 000020 955530 are “te O.UST  ;CLEAR OUT any POSSIBLE FAKE T-BIT 
8806 pers Bdp4s0 Bh 0.83 ° 5 END CONTINUE 
8807 5 /0be 005337 osss44 0.82: DEC 0.CT 
§808 003302 BGT 0.C1 ; JUMP_IF REPEAT 
8809 057070 012737 o00001 osss44 MOV #1,0.CT :RESET COUNT TO 1 
8810 057076 057555 INCB sOO«.P ALLOW PROCEED 
8811 057102 004537 057172 JSR 5,0.SVTT :SAVE TELETYPE STATUS, RY IS SAFE 
B8le 057106 012700 900102 MOV #'B, RO 
8813 O571le 0574 JSR S,0:FTYP ;TYPE “B” 
8814 057116 013700 osss542 MOV 0° ADR1, RO ;GET ADDRESS OF BREAK 
8815 OS71l22 004537 057272 0.82: JSR 5.0.CADY TYPE ADDRESS 
8816 057126 CLR RS :CLEAR CAD 
8817 057130 000137 osé040 INP 0.DCD :GO TO DECODER 
8813 ; SAVE REGISTERS RO-R& IN INTERNAL STACK 
8821 057134. 012637 057552 8.SVR: MOV (SP)+, 0. XXX sPICK REGISTER FROM STACK AND SAVE 
ge 140 010637 055524 MOV SP,0. USP SAVE USER STACK ADDRESS 

144 012706 055524 MOV #0: USP, SP ;SET TO INTERNAL STACK 
8824 057150 010546 MOV RS, -(SP) 
8825 057152 010446 MOV RY, -(SP) REGISTERS 
8826 057154 010346 MOV R3,-(5P) *1 
8827 057156 010246 MOV R2,-(SP) : THRU 
8828 057160 010 MOV R1;-(SP) : S 
8829 057162 013746 os75S2 MOV 0. XXX, -(SP) *PUT SAVED REGISTER ON STACK 
8830 057166 005746 TST -(SP) 
B83! 057170 0002 RTS 
8833 : SAVE TELETYPE STATUS 
Bea¢ 057172 113737 177560 057556 O.SVTT: MOVB 0.RCSR,O.CSR1  ;SAVE R C/SR 
8836 057200 113737 177564 057557 MOVB 0.TCSR,O.CSRe ;SAVE T C/SR 
8837 057206 105037 177560 CLRB  0.RCSR’ CLEAR ENABLE AND MAINTENANCE 
8838 057212 105037 177564 CLRB =O. TCSR : BITS IN BOTH C/SR 
8839 057216 004537 057526 JSR 5.0. CRLF TYPE <CR,LF> 
B40 057222 . 000205 RTS RS 
BBHe * RESTORE TELETYPE STATUS 
B844 057224 004537 057526 O.RSTT: JSR 5,0.CRLF -<CR,LF> BEFORE RESTORING 
B84S 057230 105737 177564 TSTB «oO: TCSR ;WAIT READY ON PRINTER 
8846 057234 100375 PL ~4 
8847 057236 032737 OO4000 177560 BIT #4000,0.RCSR  ;CHECK BUSY FLAG ON READER 
e848 057244 001403 BEQ 0.RSEL :SKIP READY LOOP IF NOT BUSY 


8849 05724 105737 177560 TSTB 0.RCSR ;WAIT 





eee eee 


tae RKE DRIVE opal “deed 3 
cREJB.CMB 89 O3-NOV-7 


ae iaasiennnieen icaieaiaiandeniacint: 


3 
Beoes5 Adgeas 


ytetatetes 
aa2 


ae 


ees ets 


b= 0-2 
ee g 


coe 


8 
g 


15:3 


0S7556 oreee 


0$75S7 


0761S 
000068 


177770 


957610 
177776 


0$7615 
0S7420 


057434 


177564 
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TYPE ERROR ROUTINE 

BPL ; ON READER 
Q.RSE1: MOVB 5. SRL, Q.RCSR ;RESTORE 

MOVE CRE, ,C.TCSR ; THE STATUS REGISTERS 


TYPE OUT CONTENTS OF WORD OR SYTE WITH ONE TRAILING SPACE 
; WORD IS IN RO 


A.caov: m2 R2,-(SP) sSAVE Re 
MOV s SOBUF46.R4 SUFFER START ADDRESS 
6 =(S8 SCONSTANT ASCII 0 


OCTAL CHARACTER 


ADD asP,R2 SCONVERT TO ASCII 
MOVB Re, -(R4) :STORE IN BUFFER 
ASR RO ‘SHIFT THIS MESS 
ASR RO : RIGHT 
°5R RO : THREE WHOLE PLACES 
CoP R4, #0. BUF +1 ; DONE? 
BHI 0. SPC NO 
Bc 81 RO :GET LAST BIT 
ADD (SP)+,.R0 i CONVERT TO ASCII 
MOVB RO, -( RY) sAND PUT’ IT AWA 
MOV #0: BUF +6, R3 LWA 
JSR 5.0. TYPE TYPE WHOLE STRING OF CHARACTERS 
MOV ($P}+,Re *RESTORE Re 
RTS RS 
: GENERAL CHARACTER INPUT ROUTINE 
: CHARACTER INPUT GOES TO RO 
8.GET: STB  O.RCSR ;WAIT FOR 
BPL _—4 : FROM KEYBOARD 
Move OO. :GET A CHARACTER 
JSR 5.0.F TYP ECHO CHARACTER 
¢ ul7? é STRIP OFF PARITY FROM CHARACTER 
CMPB s«#40, RO * CHECK Seek FOR R SPACES 
BEO 0.GET -T NULLS 
CMPBtségt*: JRO *CHECK FOR SEMI-COLON 
BEQ 0. GET IGNORE THEM IF FOUND 
RTS RS 
: 
: NERAL CHARACTER OUTPUT ROUTINE 
: ROORESS OF RST BYTE IN RY 
s T BYTE IN R3, ”(R3)> (RY) 
8. TYPE: CMP R3,R4 ;CHECK FOR COMPLETION 
BLO 0. TYP1 : EXIT WHEN DONE 
MOVB  - (R4) +, RO iGET A CHARACTER | 
JSR 5,0.F TYP ‘TYPE ONE CHARACTER 
BR 0: TYPE LOOP UNTIL DONE 


: TYPE ONLY ONE CHARACTER (CONTAINED IN RO) 
b.FTYP: TSTB 0.TCSR CHECK STATUS 


i re ete a ene. 
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2 
a 
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DZR6JB.CMB O3-NOV-76 15:31 TYPE ERROR ROUTINE 
8308 OS744O 1003 BPL <4 sHALT UNTIL READY 
8300 pecie 1 17756 MOVB &0,0.TDB E ONE CHARACTER 
ie CMPB = séRO 845 "IS CHAR TO BE FILLED? 
8399 O12 BNE 0. tYP1 :NO 
8910 1137 ooo MOV ae44, -(SP) YES, INIT THE COUNT 
} 891) 105737 177564 0.TYP2: TST 0.7C8R 
8912 057464 100375 BPL 0: TYP2 
e313 Derveb 105037 177566 cLRg 9.108 ;GENERATE NULL FILLER 
Baie Benisg Apsate Beg? BF pa 
B16 b57478 005726 TST (§P)+ sPOP STACK 
E317 900205 O.TYPL: RTS RS 
89195 : CLOSE WORD OR BYTE AND EXIT 
g20 : UPON ENTERING, Re HAS NUMERIC FLAG, R4 HAS CONTENTS 
gace 057502 6. TCLS: ASR RS ;GET LOW ORDER BIT 
057504 103405 BCS 0.1C :JUMP IF ALREADY CLOSED 
cS Ban es a 
10 005702 TS R2 F NO NUMBER WAS TYPED THERE IS 
8926 057512 00140! BEQ 0.CLS1 ih CHANGE TC THE OPEN CELL 
8927 pe7et4 1041 RY, ORS “STORE WORD 
8928 16 0.CLS1: RTS PC 
8929 057520 005746 0.1C: TST -(SP) - :POP EXTRA CELL FROM STACK 
B30 057522 000137 oséoe4 0O.ERR ‘AND SCREAM BLOODY MURDER 
| 8932 ; O.CRLF - TYPE <CR,LF) 
| §93S 057526 012703 057563 B.CRLF: MOV #0.CR+1,R3 sLWA <CR,LF> 
| 8936 057532 o00402 BR CRS 
B37 5754 12703 os7sty O.CRLS: MOV #0. CR+2,R3 sLWA <CR,LF># 
12704 0.CRS: MOV 80.CR,R4 °F 
/ B939 057544 057420 JSR 5.0. TPE : TYPE SOMETHING 
| §940 057550 o0020S RTS. ss RBS 
057552 000000 6.xxK: . 0 s TEMPORARY STORAGE 
e943 057554 000 0.7: .BYTE C :  T-BIT 
/ gou4 957555 000 0:P:  <BYTE O ; PROCEED FLAG 0 IF PROCEED NOT ALLOWED 
, BSS = 1 IF PROCEED ALLOWED 
| BSE os7556 000 O.CSRI: .BYTE 0 SAVE CELL - R C/SR 
peat 057557 000 0.CSR2: -BYTE 0 *SAVE CELL - T C/SR 
«pays ‘ EVEN 
| B50 0S7560 o42502 0.80: :WORD "BE 
| gsse2 O1S b.cR: .BYTE OS ; <CR> 
Bx eae O12 “BYTE Ole > <LF> 
057564 ose -BYTE '# : 
| Beer os7565 057 O.LGCH: .BYTE °/ ; 7 
 «~g957 57566 ois “BYTE 1S : CARRIAGE RETURN 
«B98 O44 "BYTE 8° : § 
pee 057570 107 "BYTE °G ; § 
1 Ole2 "BYTE Ole > <LFD 
®%1 057572 137 .BYTE 'e + + 
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006001 
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7R5JB 
-BYT ' eo 
em i Wig 
8954 16? BYTE = 'W ; i 
cee Baie a 
8368 900014 O.CLGT = -0.LGCH’ : TABLE LENGTH 
70 OS760 123 6.1: .BYTE ° :D0 1 
Bao Devos 120 “BYTE °P NOT 2 
8972 115 “BYTE 3° :CHANGE 3 
6973 057604 500 -BYTE 0 ‘THEW 
Ee Ghee i 
e278 090006 O.LG = i ae 
B78 057607 pi 0. BUF: ; a 76 CHAR. BUFFER WITH 
e980 057615 040 .BYTE =’ ; TRAILING BLANK 
e381 “EVEN 
g283 057616 000003 B.TRTC: TRT s TRACE TRAP PROTOTYPE 
e285 *THE ORDER OF THE FOLLOWING ENTRIES IS CRITICAL 
Bees OSSS10 pSaBBeD hon 3 
g989 055512 00000 eoenc Ae 
89990 955514 00000 0 
g23) 16 00000 p 
e993 0 
ees be ose, | 
g2% peees Bop000 Q.UST: p 
cose feeesq ries O.MSK: 0 
ca Ge ie 5 
: BREAK POIN 
e005 ; UIN = CON 
g005 osss4¥2 900000 b.ADR1: O 
9006 oss5544 o00000 0.CT: 0 
3007 055546 000000 0.UIN: 0 
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4196 4254 
4248 84314 
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isa Iie 
itis 1134 
1119 1135 
1104 1120 
1125 1153 
1126 1140 
1114 1127 
1115 1128 
1116 1129 
1130 1144 
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4322 8=©=_ 4367 
4361 4496 
1159 1172 
let 1174 
tise 1162 
1149 1163 
1136 1206 
1180 
1154 1167 
1141 1155 
1142 1156 
1143 iia? 
1158 1171 
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CLRFLG 023730 2720 4480S" 

€0E — = 001000 10988 

CONTEC = 1398% 3507 5S94 vi 

COUN 14 14i0e 540S* S4ise su79x sues 

CR = «o00cI15 gi8e 5988 5998 670 709 «6711~—Sés«é& 1G 6720 6728 426736 «40s674H—«<“‘é‘éCSY~OCéG 759 
6764 6769 6775 6781 6787 6794 6799 6813 +«—«6618 23. «6827 
683 6842 6844 6849 6854 68589 6860 6864 6868 £6873 6889 
6898 6907 bo14 69 6925 6931 6938 6947 6949 6955 6964 6973 6984 
6995 7001 7 7017 7023 7027 «7036 7045 7053 #97058 #7063 7074 
7085 7093 7102 #7109 #7118 7124 7132 137 7145 «= 7150S s«s7155.—Ss«s71b2~2Sss7172 
7182 «71 7195 7202 7213 7220 7229 7241 249 «7254S 7561 2S ss726702=—s 7272 

7285 7294 #73049 ##+#7310 7317 «497304 #+#«#$i7332 «#397340 «497346 «867354 7358 I 
7397 #7715 £8280 Bele 6216 

CRLF = 900200 9198 5959 5998 

C76 = O04000 

CYL 001436 14278 

CYLADD 001374 1405¢ 3682 SO%* S097» SO98* S099% S100* 5S101* 

€YLDIF 001372 yous eoe1* pogee 503s Soa4* 5Soss* Soe6* 5087 Sos9* S133 S137 S140 Sib 
165 168 190% 5191% ; 

DATAD O01516 14598 4099 4118 4122 4195 4198 4250 4321 4363 4498 4577 4619 

DATAOL 001520 14608 

DATAL 001522 14518 4158 4253 

DCK = 100000 11048 

Bote = saresg tes 1287 2890 

= 
DOPCH ae 16238 576% 2905 
= 

| Bo ppeusy le228 2733% = 4 

|DF1 984720 1664 1670 1676 

| OF IO 1710 #1715 #1 

18% 1861 1 

| 2051 2056 

| 2156 2161 2171 

| 

‘DF1n oss100 ae 6 Gof 

,OF14 © 655120 83628 

'DFIS 055130 2281 2286 2306 

OF17 055144 1 2446 63768 

OF 054730 & 

| DF. 055164 1871 P 

| Be 054744 2126 2136 83008 

OFY 054760 2131 2141 83078 

'OFS = OS4774 2316 406 3148 

'OF6 055000 83178 

OF? = OS5014 2336 

\OFB 055024 1811 1816 1821 

| 166 1 1991 

| DFS osso44 i706 i t 

| aa as 

| DHL 050367 1662 1b 68 167 

‘OHIO «OS 1005 pare, 

'DH11 051034 1929 1934 1939 

DHI2 == 081110 1964 1959 1964 
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M1 1 74698 
Enis 4563 1888 see 1873 1883 1898 61933 193s 1988 )=—s_«s2078 Ss e2e23CeHBCii2HBCiséS 414 
Em18 044273 1757s 1?7e-Ss«1788_)~Ss «1853 1908 6: 1938) ss 1988 «=ss«s1993''s 04S 08BSeeeB =O eeeS3 S218 
eat it oe 74768 
EMIS) O44314 seis suiae 1 189 1903 1918 i193 19739 1998 eb93 2233 2258 2393 
ENe 043237 1661 73798 
ENeO 044335 soe M4 1793 1823 1913 1993 1948 1978 2003 2098 2238 2263 2584 
EM21  O44356 171 W7ee = 17S2Sssi7b2seBS e308 = 4348S 7488 
EMce O44400 184 74888 
EMe3 386 O44 1928 983 74948 
EMeY = QU447 1 1778 = 74998 
ENeS 1953 OSe 
EMe& 38 044575 1988 86 ee98 Ss 75 128 
EMe7 044637 2033 2073 2118 75188 
ENS 4 2013 75228 
EMeS =: O47 16 2018 7527s 
EM3 04 S6e7 ss 73898 
EM30 86044743 e0e8 3875318 
EM31 044774 e103 75368 
EM32 e143 = 75418 
EM33 045061 e148 75468 
EM34Y 045112 e153 875518 
EM3S «© 045153 2168 75578 
EM36 045207 75628 
EM37 8 ©045eSe 2178 75688 
BES 945302 75728 
O4S344 1858 75788 
EM4 3402 S662 43 73978 
EM4O 86045413 1863 75858 
EM41 1 75918 
EM42 2183 
EM43 8 O4S547 2193 §=760e8 
EMG 1 2198 
EMYS = © 045643 ec08 76138 
EM46 8 86045720 eel13 4=ech43 = 7b2 18 
EM47 eel8 76298 
EM48 046037 20e3 8676358 
EMYS 046077 e048 8 76418 
EMS O434S6 1667 8 
EMSO 046133 e068 j23c8 7646% 
EMS1 175 2123 5168 2133 42138 8676528 
EMSe 2008 8 
EMS3 046275 ec88 8 76658 
EMSY 046325 ccna a 
EMS6 Bue 20 e3i3 76828 
EMS7 8 O46474 e173. 2323. «= 2338 )=— 76888 
EMG 3477 167 74088 
EM60 See 76928 
EM61  O46560 2273 
EM62 O46606 e423 77018 
EM63 °° O4b626 secs e4e8 77048 


é 
2 
¢ 
N 
8 
$ 





UNIBUS RK& ORI 





DIAGNOSTIC 
O3-NOV-76 15:21 


| 
| 
| 
| 
| GINT 24156 
| 


PART 3 


2443 
74118 


MACY11_27(1006) _O3-NOV-76 15:34 PAGE 181 
CROSS REFERENCE TABLE -- USER SYMBOLS 










77308 
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GO. _- = 000001 105748 
GSTAT O246S2 3173 ac85 seve 3283 3900 3315 3333 3340 3356 3373 3388 3405 3458 


GTSWR = 104406 66908 
SOF 0054 












posioe 15938 
Se o0s4e leg 4 3 3 
4379 864591 4635 4739 49e7# Bose 8eS3 S8ebe 8268  828e 
i” poe iaaee 4283 4284 4532 4533 4930% S320 5321 8268 8273 8282 
HDC 005420 i988 4934% S332 S340 S343 S34S# 5346 #8265 8276 #8279 8282 
HDS 005412 189S5# 2933 30° 4931* 8255 8259 8268 
HDTAB 001542 147e8 =64074) = Y4H40 Ss S235 
HDWD 8 001532 14668 8273 ‘ 
HD1 001506 14548 S2e37% Se38% S2e39% SeyOe Se4l*e S2e4ex S249 
HEAD 001504 14538 4069% 4076% 4077 4O78* 4O9e% 4093 443S* 4dee 4443 4H44e 44S6e 4457 
S237 $331% 5338 
HER 005414 15968 63 
HMRI 24 16008 4935% 
HMRe = O0S426 16018 2899 
3405 3417 
3847 3852 


LIMERR 001536 14698 


20 $508 
HMR3 905430 16028 3756 
255 8259 
HOLD 024264 $16 4919 
HPAT 005434 16048 4939% 
HPOS 005432 16038 4938% 
HT =. = 000011 gigs 5957 
HVRC = 000400 10978 
HC = ODS4O4 15928 4928% 
HZ 001400 14088 
IDAE = 002000 10998 
TE = 000100 10588 
ILF_ = 00000) 10898 
INTER 027716 4900 57038 
TNVCYL 005356 14808 
IOTVEC= 000020 10118  2671* 
IR = 000100 10768 
LCLKF 005506 16408 2786 
LOVEC § 001344 13838 2787 
LF = = 000012 9178 59 
ie ihe 
i 
cS 
6995 7001 
7085 7093 
| 7182 7199 
7280 «= 7285 
7389 7397 
| 
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LKS = 001342 13814 
LOOP. 26740 5171 
LPCNT 01462 14398 
ea is TRE 
= ; 
ADS 1000 10798 
MOSERR 001540 1470 
MENBAS= 172100 13878 
MENERR 027654 e712 
MEMPAR 011062 27078 
MENVEC= OOO114 13868 
RESHSK= 000017 1138s 
MEWD = 002000 11318 
MIND = 000200 11288 
MSG1_ 034062 4819 
et ie 0 
necle 436 2926 
MSG13 035445 2809 
MSG14Y 036533 5021 
MSG1S 035556 2049 
MSG1g 035570 317 
MSG1? 035614 400 
MSGIB 035644 3452 
MSG19 035676 3591 
MSG2_ 034755 2734 
MSGe0 035727 3660 
MSGel 035760 3734 
mSGe2 036021 3837 
MSGe3 036102 5415 
036167 4o4s 
MSGe5 036213 69118 
MSGeb Obese 4403 
036273 3130 
MSGeB 036323 4704 
MSG29 036365 3822 
MSG3_ 035026 2749 
036431 326i 
MSG31 036513 3509 
03652 3328 
MSG33 036561 3295 
MSG34 036646 3296 
MSG35 036734 3368 
MSG36 037031 3398 
mSG37 037126 se57 
jmscse 037172 3493 
MSG39 037330 3494 
MSGY 2751 
MSGHO 037373 3566 
| MSG41 037505 3596 
Neate 037568 3606 
| MSGH3 037643 3617 
| MSGHY 037673 3626 
;MSGHS 037723 3641 
| 
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S470% s4gue 
S4S28 
5172 S42oe S435 S457% 


3022 4739 
2713% 
6858s 
5610 69478 
69648 


3e97_ 3329) 337047303490: 3871 3597 3607 3618 3627 
3843 4058 4148 Y42e34 4268 4280 4HeY 4496 4710 = 4717 


3567 7017% 


3642 
69958 
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“SG 37774 365 3700 70708 
NSG4 177 3256 «63678 Ss 70838 
MSGHS 049257 3689 71028 
mete’ | Baers cs iho. 
é¢ 
NSGSO aes $033 4516 4453S. 71328 
MSGS 1 3042 7378 3 
. 0671 3S 0 M5Q.si3SS20— si“ ©«=s«i373S)—'—«i38SBSCi‘éOSO]Ci‘éMHLDCi«é«‘«éS:—“C<+ié‘é71STW 
405? 4 «4233S? 0S s47si«‘wDDséCP lw 
SoSH 1 4147s «4B4]s 71728 
MSG5S 1l 3495 g51 71828 
MSGSB OOM 232 3988 190 
mSGS7 1436 Wee 072138 
™SG5B l 4709 7220 
mSGs9 1 4716-72298 
NSGh 035202 5708 68138 
MSCEO0 041671 4754s 7e41e 
MSGE1 p20! u7u7,s 748 
04204 4701 7eble 
14 Sw 72728 
421 7oHe 
MSGES ? 3260 3327 3397 73108 
| Hee 042535 73178 
| MSG&7 042660 3489 73328 
| MSG6B b42735 475373408 
/NSGES  O4E775 M400 3666 3701 3775 4SI7 44S36 73468 
|SG7_ 035236 2768 «~Os«B 188 
'MSG70 O43052 3399 «3774S 73548 
MSG71 9043100 3570 73588 
| NSCB 36273 3251 68238 
|MSG9sO3531 HG 68278 
| MSPs eaates 11278 
| MULTS 170 5276 46: $3028 
| MLALGN= O4C000 12038 
| MLCADG= 017760 12028 $097 
| MCDIF= 017760 11958 5082 5191 
/M-DPID 30040 5436 ie 
i: e 5&7 
/MDedl 0301 s 
'M.D0P42 9301 773 r 
M-DP44 §030174 S78 40 s«4§ 7928 
'M:DPSO 030206 5760 «57978 
MCDRV = 000007 11948 
| MCHEAD= 30705 12058 
MID = 12018 S524 
| MLOFST= 017760 11968 
| M:PRR = 100000 12068 5561 
| M:SECT= 000760 12048 5070 
; feger = 11978 
| = 010000 10828 2935 2947 3028 3484 «3519. ss3549—Ss«360l «= ss3813ss22©~Sss«3633 
Lo ae 
TOP = DbBbeM inate 
OFFERR 001502 14508 
OFFSET= 000015 10498 
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OFST 0 11108 

SPE 3200) 11028 

OR 10778 

0. ADRI boosie * @S71# 8573 8743 8744s 67828 8797 8814 9005s 
0. BACK $61 66568 

0.85 057560 8801 8802  89S0s 

6. BKPT 85668 861 

9- BK) Me: 8514 87798 

0. 8784 87878 

0.BK3 057000 8786 87938 

6.BRK 05671 8531 87778 : 

2. BUF 3 B56 8872 8978s 

. 8 

0.83 057122 8806 8815s 

O.CADY 057272 Bb32«BSH9—(iéi‘éwkG 72 OiC«BG7G&~=Os«é70&E~=CtsC«#é71=ON-—Csés«é‘«éBISS~Ss«éBSs 
O.CLGL 056110 e589 8591 8595s 

0.CLGT= 909018 8603 8968s 

0.C151 16 8926 89288 

8b ERer peeses st: Bae ex dene 

O.CRLF 057526 edo 8704 6806 98839 8844 8935s 

5° ERS pesead oa5¢ easae 

9. CSRL 057556 B8358 8851 esuee 

aie cores Bees, «Batoe — coce 

0.C1 056674 87678 8808 

9.DeD OS6040 8572 8574 s8S84s 8641 8692 28817 
0.DCD1 956044 85858 8633 8677 

0.EFF 056350 8618 86838 

0.EFF1 OS6466 8695 87148 

0.ENTR gS1is 

0. ERR 8558 8569 S818 8604 8629 8687 98930 
0.ERRI 86878 8760 

O.ERRe 056200 B6298 8663 8736 

O:FTYP 057434 8583 8651 8666 8708 8813 98884 98900  9890Ss 
0.GET 957356 8537 8587 8881s 8886 8688 8890 
0.60 056532 812 87248 

0.602 056610 87458 8770 

0.L6 = 900006 8541 689768 

O.LGCH 057565 BE00  4««s«aBSSbe «= B98 

O.LGOR 056140 8607 86098 862! 

0:LGL = 000030 86218 

O.LGL1 OS6112 86008 8605 

O.LGL2 056132 8601 8606s 

0.4SK 055534 8688 8689 6691 8996s 

OloesT peEere sie Beese 

0.0F1 pepe’e B67 86778 

0.0P1 056234 861 86458 

0.0P2 05624 8562 «BEH7# = s ESB ; 

0. ORPC e5S4s 14 
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